wh310unit.pas

货物配送管理系统对配送服务

unit WH310Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PublicUnit, jpeg, ExtCtrls, StdCtrls, Mask, DBCtrls, Grids,
  DBGrids;

type
  TWH310Form = class(TPublicUnit)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    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);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WH310Form: TWH310Form;

implementation

uses DMUnit, main, WH310rpt, PubRptUnit;
{$R *.dfm}

procedure TWH310Form.Button1Click(Sender: TObject);
begin
  inherited;
  Button1.Enabled := False; //  '新增'不可用
  Button2.Enabled := False; //  '编辑'不可用
  Button3.Enabled := True; //  '储存'可用
  Button4.Enabled := True; //  '取消'可用
  DM.WLType.Append;
  DM.WLType.FieldByName('日期').AsDateTime := Now;
  DM.WLType.FieldByName('操作人').AsString := MainForm.Auser.UserName;
end;

procedure TWH310Form.Button2Click(Sender: TObject);
begin
  inherited;
  Button1.Enabled := False; //  '新增'不可用
  Button2.Enabled := False; //  '编辑'不可用
  Button3.Enabled := True; //  '储存'可用
  Button4.Enabled := True; //  '取消'可用
  DM.WLType.Edit;
end;

procedure TWH310Form.Button3Click(Sender: TObject);
begin
  inherited;
  Button1.Enabled := True; //  '新增'可用
  Button2.Enabled := True; //  '编辑'可用
  Button3.Enabled := False; //  '储存'不可用
  Button4.Enabled := False; //  '取消'不可用
  DM.WLType.Post;
end;

procedure TWH310Form.Button4Click(Sender: TObject);
begin
  inherited;
  Button1.Enabled := True; //  '新增'可用
  Button2.Enabled := True; //  '编辑'可用
  Button3.Enabled := False; //  '储存'不可用
  Button4.Enabled := False; //  '取消'不可用
  DM.WLType.Cancel;
end;

procedure TWH310Form.Button5Click(Sender: TObject);
begin
  inherited;
  if MessageBox(0, '你确定删除该条记录', '提示', MB_YESNO + MB_ICONQUESTION) =
    IDYES then
  begin
    DM.WLType.Delete;
  end;
end;

procedure TWH310Form.Button6Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TWH310Form.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if (Key = #13) then
  begin
    Button3.Click;
    Button1.Click;
  end;
end;

procedure TWH310Form.Button7Click(Sender: TObject);
begin
  inherited;
  Application.CreateForm(TWH310rptForm, WH310rptForm);
// WH310rptForm.Prepare;
  WH310rptForm.Preview;
 //Application.CreateForm(TPubRptForm , PubRptForm);
 // PubRptForm.Preview;
  //WH310rptForm.Free;
end;

end.