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

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

2013-06-07 01:23 TObject);
    procedure tblrefClick(Sender: TObject);
    procedure tbltableClick(Sender: TObject);
    procedure tblprintClick(Sender: TObject);
    procedure tblcloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cbounitChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure dbgridDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure cbounitClick(Sender: TObject);
    procedure cboorderbyChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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;                    //根据分辩率调整荧幕大小 （科教作文网 zw.nseac.com整理）
  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