wh120unit.pas

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

unit WH120Unit;

interface

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

type
  TWH120Form = class(TPublicUnit)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    DBCheckBox17: TDBCheckBox;
    DBCheckBox18: TDBCheckBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox24: TDBCheckBox;
    DBCheckBox25: TDBCheckBox;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox27: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    DBCheckBox29: TDBCheckBox;
    DBCheckBox30: TDBCheckBox;
    DBCheckBox31: TDBCheckBox;
    DBCheckBox32: TDBCheckBox;
    DBCheckBox33: TDBCheckBox;
    DBCheckBox34: TDBCheckBox;
    DBCheckBox35: TDBCheckBox;
    DBCheckBox36: TDBCheckBox;
    DBCheckBox37: TDBCheckBox;
    Button6: TButton;
    Button5: TButton;
    Button4: TButton;
    Button3: TButton;
    Button2: TButton;
    Button1: TButton;
    Button7: TButton;
    Button8: TButton;
    DBCheckBox38: TDBCheckBox;
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    procedure CLS; // 清除控件内容
    procedure ENA; // 所有控件可用
    procedure DIS; //  所有控件不可用
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WH120Form: TWH120Form;
  Hour, Min, Sec, MSec, year, month, day: Word;
implementation

uses DMUnit;
{$R *.dfm}

procedure TWH120Form.CLS;
var
  i: Integer;
begin
  for i := ComponentCount - 1 downto 0 do
  begin // 清除所有的TDBEdit控件的内容
    if (Components[i] is TDBEDIT) then
      TDBEDIT(components[i]).Clear;
  end;
  for i := ComponentCount - 1 downto 0 do
  begin // 清除所有的TDBCheckBox控件的内容
    if (Components[i] is TDBCheckBox) then
      TDBCheckBox(components[i]).Checked := False;
  end;
end;

procedure TWH120Form.ENA; // 新增记录的时候使所有的控件可用
var
  i: Integer;
begin
  for i := ComponentCount - 1 downto 0 do
  begin
    if (components[i] is TDBEdit) then
    begin // 使所有的TEdit控件可用
      TDBEdit(components[i]).Color := clwindow;
      TDBEdit(components[i]).ReadOnly := false;
    end; //   使所有的 TDBCheckBox 控件可用
    if (components[i] is TDBCheckBox) then
      TDBCheckBox(components[i]).Enabled := True;
  end;
  Button1.Enabled := False; //  '新增'不可用
  Button2.Enabled := False; //  '编辑'不可用
  Button3.Enabled := True; //  '储存'可用
  Button4.Enabled := True; //  '取消'可用
end;

procedure TWH120Form.DIS;
var
  i: Integer;
begin
  for i := ComponentCount - 1 downto 0 do
  begin // 使所有的TDBEdit控件不可用
    if (components[i] is TDBEdit) then
    begin //  改变TDBEdit控件的颜色
      TDBEdit(components[i]).Color := $00D8D8D8;
      TDBEdit(components[i]).ReadOnly := true;
    end; //   使所有的TDBCheckBox控件不可用
    if (components[i] is TDBCheckBox) then
      TDBCheckBox(components[i]).Enabled := False;
  end;
  Button1.Enabled := True; //  '新增'可用
  Button2.Enabled := True; //  '编辑'可用
  Button3.Enabled := False; //  '储存'不可用
  Button4.Enabled := False; //  '取消'不可用
end;

procedure TWH120Form.Button6Click(Sender: TObject);
begin
  inherited;
  Self.Close; //关闭该窗体
end;

procedure TWH120Form.Button1Click(Sender: TObject);
begin
  inherited;
  DecodeDate(now, year, month, day);
  DecodeTime(Now, Hour, Min, Sec, MSec);
  CLS;
  ENA;
  DM.User.Append;
  DM.User.FieldByName('创建日期').AsString := IntToStr(year) + '年' +
    IntToStr(month) + '月' + IntToStr(day) + '日';

  DM.User.FieldByName('创建时间').AsString := IntToStr(Hour) + '时' +
    IntToStr(Min) + '分' + IntToStr(sec) + '秒';
end;

procedure TWH120Form.FormShow(Sender: TObject);
begin
  inherited;
  DIS;
  DM.User.Open;
end;

procedure TWH120Form.Button2Click(Sender: TObject);
begin
  inherited;
  ENA;
  DM.User.Edit;
end;

procedure TWH120Form.Button3Click(Sender: TObject);
begin
  inherited;
  DIS;
  DM.User.Post;
end;

procedure TWH120Form.Button4Click(Sender: TObject);
begin
  inherited;
  DIS;
  DM.User.Cancel;
end;

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

procedure TWH120Form.Button7Click(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  for i := ComponentCount - 1 downto 0 do
  begin {--- 全部选择TDBCheckBox控件 ---}
    if (Components[i] is TDBCheckBox) then
      TDBCheckBox(components[i]).Checked := True;
  end;
end;

procedure TWH120Form.Button8Click(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  for i := ComponentCount - 1 downto 0 do
  begin {--- 反向选择所有的TDBCheckBox控件 ---}
    if (Components[i] is TDBCheckBox) then
      TDBCheckBox(components[i]).Checked := not
        TDBCheckBox(components[i]).Checked;
  end;
end;

end.