评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access设备保养管理系统[开题报告＋论文＋源(6)

2013-06-07 01:23 (adoque.RecordCount)+'条信息'
end;
end;
end;

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;

procedure Tfrmmaintable.tblprintClick(Sender: TObject);
begin
application.CreateForm(Tfrmprint, frmprint);
frmprint.Close;
frmprint.QuickRep1.DataSet:=adoque;
frmprint.QRDBText1.DataSet:=adoque;
frmprint.QRDBText2.DataSet:=adoque;
frmprint.QRDBText3.DataSet:=adoque;
frmprint.QRDBText4.DataSet:=adoque;
frmprint.QRDBText5.DataSet:=adoque;
frmprint.QRDBText6.DataSet:=adoque;
frmprint.QRDBText7.DataSet:=adoque;
frmprint.QRDBText8.DataSet:=adoque;
frmprint.QRDBText9.DataSet:=adoque;

frmprint.QRDBText1.DataField:='单位';
frmprint.QRDBText2.DataField:='区域';
frmprint.QRDBText3.DataField:='类别';
frmprint.QRDBText4.DataField:='项目';
frmprint.QRDBText5.DataField:='工具';
frmprint.QRDBText6.DataField:='保养人';
frmprint.QRDBText7.DataField:='确认人';
frmprint.QRDBText8.DataField:='完成日';
frmprint.QRDBText9.DataField