wh360unit.pas

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

unit WH360Unit;

interface

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

type
  TWH360Form = class(TPublicUnit)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBLookupListBox1: TDBLookupListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBLookupListBox2: TDBLookupListBox;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    DBNavigator2: TDBNavigator;
    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 DBComboBox1DropDown(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure CLS; // 清除控件内容
    procedure ENA; // 所有控件可用
    procedure DIS; //  所有控件不可用
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WH360Form: TWH360Form;

implementation

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

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

end;

procedure TWH360Form.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;
    if (components[i] is TDBComboBox) then
    begin // 使所有的TEdit控件可用
      TDBComboBox(components[i]).Color := clWindow;
    end;
  end;
  Button1.Enabled := False; //  '新增'不可用
  Button2.Enabled := False; //  '编辑'不可用
  Button3.Enabled := True; //  '储存'可用
  Button4.Enabled := True; //  '取消'可用
end;

procedure TWH360Form.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;
    if (components[i] is TDBComboBox) then
    begin //  改变TDBEdit控件的颜色
      TDBComboBox(components[i]).Color := $00D8D8D8;
    end;
  end;
  Button1.Enabled := True; //  '新增'可用
  Button2.Enabled := True; //  '编辑'可用
  Button3.Enabled := False; //  '储存'不可用
  Button4.Enabled := False; //  '取消'不可用
end;

procedure TWH360Form.Button1Click(Sender: TObject);
begin
  inherited;
  case PageControl1.TabIndex of
    0:
      begin
        CLS;
        ENA;
        DM.CLZL.Append; //加入新的记录
      end;
    2:
      begin
        CLS;
        ENA;
        DM.CDMC.Append; //加入新的记录
      end;
  end;
end;

procedure TWH360Form.Button2Click(Sender: TObject);
begin
  inherited;
  case PageControl1.TabIndex of
    0:
      begin
        ENA;
        DM.CLZL.Edit;
      end;
    2:
      begin
        ENA;
        DM.CDMC.Edit;
      end;
  end;
end;

procedure TWH360Form.Button3Click(Sender: TObject);
begin
  inherited;
  case PageControl1.TabIndex of
    0:
      begin
        DIS;
        DM.CLZL.Post;
      end;
    2:
      begin
        DIS;
        DM.CDMC.Post;
      end;
  end;
end;

procedure TWH360Form.Button4Click(Sender: TObject);
begin
  inherited;
  case PageControl1.TabIndex of
    0:
      begin
        DIS;
        DM.CLZL.Cancel;
      end;
    2:
      begin
        DIS;
        DM.CDMC.Cancel;
      end;
  end;
end;

procedure TWH360Form.Button5Click(Sender: TObject);
begin
  inherited;
  case PageControl1.TabIndex of
    0:
      begin
        if MessageBox(0, '你确定删除该条记录', '提示', MB_YESNO + MB_ICONQUESTION) =
          IDYES then
        begin
          DM.CLZL.Delete;
        end;
      end;
    2:
      begin
        if MessageBox(0, '你确定删除该条记录', '提示', MB_YESNO + MB_ICONQUESTION) =
          IDYES then
        begin
          DM.CDMC.Delete;
        end;
      end;
  end;
end;

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

procedure TWH360Form.DBComboBox1DropDown(Sender: TObject);
var
  i: Integer;
begin
  inherited;
  DBCombobox1.Clear;
  with DM.Qrytemp do
  begin //取得所选中ID所对应的名字
    Close;
    CommandText := 'SELECT 名称 FROM 车队名称';
    Open;
    if (RecordCount > 0) then
      first;
    for i := 0 to RecordCount - 1 do
    begin
      DBCombobox1.Items.Add(Fieldbyname('名称').AsString);
      next;
    end;
  end;
end;

procedure TWH360Form.FormShow(Sender: TObject);
begin
  inherited;
  DIS;
end;

end.