procedure Tfrmmaintable.cbotypeChange(Sender: TObject);
begin
with adoque do
begin
close;
sql.clear;
case strtoint(cbotype.Text) of
0:sql.Add('select * from e_table');
1:sql.Add('select * from e_table where 类别='+'"1"' );
2:sql.Add('select * from e_table where 类别='+'"2"' );
3:sql.Add('select * from e_table where 类别='+'"3"' );
4:sql.Add('select * from e_table where 类别='+'"4"' );
5:sql.Add('select * from e_table where 类别='+'"5"' );
7:sql.Add('select * from e_table where 类别='+'"7"' );
8:sql.Add('select * from e_table where 类别='+'"8"' );
end;
open;
savesql:=adoque.SQL.Text; //保存当前查询语句的内容
frmmain.statusbar1.Panels[1].Text:='共查询到'+inttostr(adoque.RecordCount)+'条信息'
end;
end;
procedure Tfrmmaintable.mnudataClick(Sender: TObject);
begin
form2.Show;
end;
procedure Tfrmmaintable.mnufileprintpreClick(Sender: TObject);
begin
tblprint.Click;
end;
procedure Tfrmmaintable.tblfirstClick(Sender: TObject);
begin
adoque.First;
end;
procedure Tfrmmaintable.tblpriClick(Sender: TObject);
begin
if not adoque.Bof then
begin
adoque.Prior;
end;
end;
procedure Tfrmmaintable.tblnextClick(Sender: TObject);
begin
if not adoque.Eof then
begin
adoque.Next;
end
end;
procedure Tfrmmaintable.tbllastClick(Sender: TObject);
begin
adoque.Last;
end;
procedure Tfrmmaintable.tbladdClick(Sender: TObject);
begin
tblok.Enabled:=true;
tblcancel.Enabled:=true;
adoque.Append;
end;
procedure Tfrmmaintable.tbldelClick(Sender: TObject);
var bldelete :integer;
begin
bldelete:=messagedlg('是否确定要删除这条信息',mtconfirmation,mbokcancel,0);
if bldelete=1 then
adoque.Delete
else
end;
procedure Tfrmmaintable.tbledtClick(Sender: TObject);
begin
tblok.Enabled:=true;
tblcancel.Enabled:=true;
adoque.Edit;
end;
procedure Tfrmmaintable.tblokClick(Sender: TObject);
begin
adoque.UpdateRecord;
end;
procedure Tfrmmaintable.tblcancelClick(Sender: TObject);
begin
adoque.Cancel;
end;
procedure Tfrmmaintable.tblrefClick(Sender: TObject);
begin
adoque.Refresh;
tblok.Enabled:=false;
tblcancel.Enabled:=false;
end;
procedure Tfrmmaintable.tbltableClick(Sender: TObject);
begin
application.CreateForm(Tform2, form2);
form2.show;
end;
