delphi+access设备保养管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](五)

var
  frmmaintable: Tfrmmaintable;
  myinifile:tinifile; //声明INI文件
  tablename :string;   //当前查询表格的名称
  savesql:string;//当前执行的SQL语句的内容
implementation

uses Unit2, Unit3,unit5;

const
  ScreenWidth: LongInt = 800;
  ScreenHeight: LongInt = 600;

{$R *.dfm}

procedure Tfrmmaintable.FormCreate(Sender: TObject);
begin
myinifile:=tinifile.Create(extractfilepath(paramstr(0))+'data.ini');
myinifile.ReadSection('username',(dbgrid.Columns.Items[5].PickList));// 读取INI文件中的用户
myinifile.ReadSection('username',(dbgrid.Columns.Items[6].PickList));
myinifile.ReadSection('area',(dbgrid.Columns.Items[1].PickList));

frmmaintable.Height:=300;          //初始窗体大小
frmmaintable.Width:=500;

scaled := true;                    //根据分辩率调整荧幕大小
  if (screen.width <> ScreenWidth) then
  begin
    height := longint(height) * longint(screen.height) div ScreenHeight;
    width := longint(width) * longint(screen.width) div ScreenWidth;
    scaleBy(screen.width, ScreenWidth);
end;

adoque.Connection:=frmmain.adocon;    //建立数据链接
adoque.SQL.Clear;
tablename:='e_table';
adoque.SQL.Add('select * from '+tablename);
adoque.Open;
adods.DataSet:=adoque;
dbgrid.DataSource:=adods;
savesql:=adoque.SQL.Text;      //保存当前查询语句的内容
frmmain.statusbar1.Panels[1].Text:='共有'+inttostr(adoque.RecordCount)+'条信息' ;
end;

procedure Tfrmmaintable.cboareaChange(Sender: TObject);
begin
with adoque do
begin
if cboarea.Text='ALL' then
begin
close;
sql.clear;
sql.Add('select * from '+tablename);
open;
savesql:=adoque.SQL.Text;      //保存当前查询语句的内容
frmmain.statusbar1.Panels[1].Text:='共有'+inttostr(adoque.RecordCount)+'条信息'
end
else
begin
close;
sql.clear;
sql.Add('select * from e_table where 区域 = '+'"'+cboarea.Text+'"' );
open;
savesql:=adoque.SQL.Text;      //保存当前查询语句的内容:=adoque.SQL.Text;      //保存当前查询语句的内容
frmmain.statusbar1.Panels[1].Text:='共查询到'+inttostr

首页 上一页 2 3 4 5 6 7 8 下一页 尾页 5/10/10