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

procedure Tfrmmaintable.tblcloseClick(Sender: TObject);
begin
close;
end;

procedure Tfrmmaintable.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action := caFree;  //半闭子窗体
frmmain.mnuprint.Enabled:=false;  //打印菜单无效
end;

procedure Tfrmmaintable.FormActivate(Sender: TObject);
var username :string;
begin
username:=frmmain.StatusBar1.Panels[3].Text;
if (username<>'普通用户') and (username<>'')then
begin
frmmaintable.tbladd.Enabled:=true;
frmmaintable.tbladd.Enabled:=true;
frmmaintable.tbldel.Enabled:=true;
frmmaintable.tbledt.Enabled:=true;
frmmaintable.tblref.Enabled:=true;
frmmaintable.dbgrid.ReadOnly:=false;
frmmaintable.dbgrid.Enabled:=true;
end
end;

procedure Tfrmmaintable.dbgridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var i:integer;
begin
for i:=1 to (adoque.RecordCount -1) do
if adoque.Recordset.Fields['重要性'].Value='yes' then
dbgrid.Canvas.Brush.Color:=clred;
end;

procedure Tfrmmaintable.cbounitChange(Sender: TObject);
begin           //区域列表内容变更

with adoque do
if cbounit.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 单位 = '+'"'+cbounit.Text+'"' );
open; （转载自http://zw.nseac.coM科教作文网）
savesql:=adoque.SQL.Text;      //保存当前查询语句的内容
frmmain.statusbar1.Panels[1].Text:='共查询到'+inttostr(adoque.RecordCount)+'条信息';
end
end;

procedure Tfrmmaintable.cbounitClick(Sender: TObject);
begin
with cboarea do
if cbounit.Text ='PM' then
begin
items.Clear;
items.Add('ALL');
Items.Add('洗净机');
Items.Add('退火炉');
Items.Add('黑化炉');
Items.Add('自动化');
Items.Add('PRESS');
Items.Add('CF机台');
Items.Add('MF机台');
Items.Add('STABI');
Items.Add('ROBOT');
Items.Add('MF点焊机');
Items.Add('CF点焊机');
Items.Add('回归系统');
end
else
begin
if cbounit.Text ='BC' then
begin
items.Clear;
items.Add('ALL');
Items.Add('DAG');
Items.Add('EXP');
Items.Add('MW');
Items.Add('PW');
Items.Add('RES');
Items.Add('MW');
end
else
begin
items.Clear;
items.Add('ALL');
Items.Add('GREEN');
Items.Add('BLUE');
Items.Add('RED');
Items.Add('FILM');
Items.Add('AL');
end
end;
end;

procedure Tfrmmaintable.cboorderbyChange(Sender: TObject);
begin
adoque.Close;
adoque.SQL.Clear;
adoque.SQL.Add(savesql+' order by '+cboorderby.Text);
adoque.Open;
end;

end.

资料管理界面与代码设计

代码设计:
unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  Tfrmshalp = class(TForm)
    Image1: TImage;
    Label2: TLabel;
    Label1: TLabel;
  private
    { Private declarations }
  publ