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;
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;
