【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,WH330Unit.pas,希望对大家有所帮助!
unit WH330Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, PublicUnit, jpeg, ExtCtrls, StdCtrls, Mask, DBCtrls, Grids,
DBGrids;
type
TWH330Form = class(TPublicUnit)
Panel3: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel1: TPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WH330Form: TWH330Form;
implementation
uses DMUnit, main;
{$R *.dfm}
procedure TWH330Form.Button1Click(Sender: TObject);
begin
inherited;
Button1.Enabled := False; // '新增'不可用
Button2.Enabled := False; // '编辑'不可用
Button3.Enabled := True; // '储存'可用
Button4.Enabled := True; // '取消'可用
DM.JYDW.Append;
DM.JYDW.FieldByName('创建日期').AsDateTime := Now;
DM.JYDW.FieldByName('操作人').AsString := MainForm.Auser.UserName;
end;
procedure TWH330Form.Button2Click(Sender: TObject);
begin
inherited;
Button1.Enabled := False; // '新增'不可用
Button2.Enabled := False; // '编辑'不可用
Button3.Enabled := True; // '储存'可用
Button4.Enabled := True; // '取消'可用
DM.JYDW.Edit;
end;
procedure TWH330Form.Button3Click(Sender: TObject);
begin
inherited;
Button1.Enabled := True; // '新增'可用
Button2.Enabled := True; // '编辑'可用
Button3.Enabled := False; // '储存'不可用
Button4.Enabled := False; // '取消'不可用
DM.JYDW.Post;
end;
procedure TWH330Form.Button4Click(Sender: TObject);
begin
inherited;
Button1.Enabled := True; // '新增'可用
Button2.Enabled := True; // '编辑'可用
Button3.Enabled := False; // '储存'不可用
Button4.Enabled := False; // '取消'不可用
DM.JYDW.Cancel;
end;
procedure TWH330Form.Button5Click(Sender: TObject);
begin
inherited;
if MessageBox(0, '你确定删除该条记录', '提示', MB_YESNO + MB_ICONQUESTION) =
IDYES then
begin
DM.JYDW.Delete;
end;
end;
procedure TWH330Form.Button6Click(Sender: TObject);
begin
inherited;
Close;
end;
end.