begin
application.Terminate ;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
with taboutbox.Create(self) do
ShowModal ;
end;
procedure TForm1.BitBtn5MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dbedit1.Text:=inttostr(dm2.adoquery1.RecordCount+1);
dbedit2.SetFocus;
end;
procedure TForm1.filldata(sender:tcombobox);
var
iCount: Integer; //将从数据模块中取得的数据库表的字段名填入ComboBox中
begin
sender.Items.Clear; //首先清空ComboBox中Items的值
for iCount := 0 to DM2.ADOQuery1.Fields.Count - 2 do
begin
sender.Items.Add(DM2.ADOQuery1.Fields[iCount].FieldName); //加入字段名
DM2.ADOQuery1.Next; //向下移动到下一个字段
end;
sender.ItemIndex := 0; //设置表单刚出现时ComboBox的值为第一个
end;
procedure TForm1.search(f1:tcombobox;t1:tedit); //自定义过程search(在数据库中搜寻指定条件的数据)
var
SearchField: string; //要查找的字段名
SearchValue: string; //要查找的字段值
begin
SearchField := Trim(f1.Text); //将ComboBox的值赋给SearchField
SearchValue := '%' + Trim(t1.Text) + '%'; //将Edit的值赋给SearchField
with DM2.ADOQuery1 do
begin
close; //先关闭数据模块中的ADOQuery
sql.Clear; //清空ADOQuery中的SQL值
sql.Add('select * from xmb where ' + SearchField + ' like ''' +
SearchValue + ''''); //进行数据查询的SQL语句（SearchFidel和SearchValue
// 分别赋到SQL语句中
end;
Dm2.ADOQuery1.Open; //打开数据模块中的ADOQuery
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
filldata(combobox1);
filldata(combobox3);
tabsheet1.Show;
end;
procedure TForm1.BitBtn14Click(Sender: TObject);
begin
search(combobox1,edit1);
end;
procedure TForm1.BitBtn15Click(Sender: TObject);
begin
dispall;
end;
procedure TForm1.dispall;
begin
with dm2.ADOQuery1 do
begin
close;
sql.clear;
sql.Add('select * from xmb');
open;
end;
end;
procedure TForm1.BitBtn13Click(Sender: TObject);
begin
if MessageDlg('你确信要删