?? wxglfrm.pas
字號:
unit wxglfrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, db, dxdbtrel, Grids, DBGridEh, Buttons, ExtCtrls;
type
Twxgl = class(TForm)
Panel1: TPanel;
Label1: TLabel;
DBGridEh1: TDBGridEh;
DBGridEh2: TDBGridEh;
Panel2: TPanel;
SpeedButton3: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
procedure showwxd;
{ Public declarations }
end;
var
wxgl: Twxgl;
implementation
uses datafrm,gen_q;
{$R *.dfm}
procedure Twxgl.SpeedButton3Click(Sender: TObject);
begin
close;
end;
procedure twxgl.showwxd;
begin
wxgl.SpeedButton1.Enabled:=yfgldata.Qwx.RecordCount>0;
yfgldata.Qwx.Active:=false;
yfgldata.Qwx.Active:=true;
yfgldata.Qwxwz.Active:=false;
yfgldata.Qwxwz.Active:=true;
end;
procedure Twxgl.FormShow(Sender: TObject);
begin
wxgl.showwxd;
end;
procedure Twxgl.SpeedButton1Click(Sender: TObject);
var
bh:string;
i:integer;
begin
bh:=yfgldata.Qwx.fieldbyname('編號').AsString;
if messagebox(wxgl.handle,'請確認要刪除本記錄嗎?','營房工作管理系統(tǒng)',33)=1 then
begin
yfgldata.wx.Locate('編號',bh,[loCaseInsensitive]);
yfgldata.wx.Delete;
yfgldata.Qwx.Active:=false;
yfgldata.Qwx.Active:=true;
yfgldata.wxwz.First;
for i:=1 to yfgldata.wxwz.RecordCount do
begin
if yfgldata.wxwz.FieldByName('編號').AsString=bh then
begin
yfgldata.wxwz.Delete;
end
else
yfgldata.wxwz.Next;
end;
yfgldata.wxwz.First;
yfgldata.Qwxwz.Active:=false;
yfgldata.Qwxwz.Active:=true;
wxgl.showwxd;
end;
end;
procedure Twxgl.SpeedButton4Click(Sender: TObject);
begin
application.CreateForm(tf_query,f_query);
f_query.tablename:='yfgl_wx';
f_query.fields.Clear;
f_query.fields.Add('編號');
f_query.fields.Add('維修項目');
f_query.fields.Add('單位');
f_query.fields.Add('維修人員');
f_query.fields.Add('日期');
f_query.fields.Add('責(zé)任人');
f_query.fields.Add('合計');
f_query.fields.Add('備注');
f_query.fieldsalias.Clear;
f_query.fieldsalias.Add('編號');
f_query.fieldsalias.Add('維修項目');
f_query.fieldsalias.Add('單位');
f_query.fieldsalias.Add('維修人員');
f_query.fieldsalias.Add('日期');
f_query.fieldsalias.Add('責(zé)任人');
f_query.fieldsalias.Add('合計');
f_query.fieldsalias.Add('備注');
try
f_query.ShowModal;
if f_query.conf then
begin
yfgldata.Qwx.Active:=false;
yfgldata.Qwx.Active:=true;
yfgldata.qwx.Filter:=f_query.filtervalue;
yfgldata.qwx.Filtered:=true;
yfgldata.Qwxwz.Active:=false;
yfgldata.Qwxwz.Active:=true;
wxgl.showwxd;
end
else
begin
yfgldata.Qwx.Active:=false;
yfgldata.Qwx.Active:=true;
yfgldata.qwx.Filtered:=false;
yfgldata.Qwxwz.Active:=false;
yfgldata.Qwxwz.Active:=true;
wxgl.showwxd;
end;
finally
f_query.Free;
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -