cwa500_05.pas.svn-base

来自「开源的网站整站程序,功能强大带采集系统.」· SVN-BASE 代码 · 共 71 行

unit Cwa500_05;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_07, dxCntner, Menus, StdCtrls, Buttons, ExtCtrls,
  dxExEdtr, dxEdLib, wwdbdatetimepicker, dxEditor;

type
  TCwa500_05Form = class(TBas200_07Form)
    lblType: TLabel;
    lblReason: TLabel;
    lblDesc: TLabel;
    lblEmpID: TLabel;
    lblDate: TLabel;
    lblValue: TLabel;
    lblTime: TLabel;
    lblUnit: TLabel;
    edtMemo: TdxEdit;
    SpeedButton1: TSpeedButton;
    dxEdit1: TdxEdit;
    dxEdit2: TdxEdit;
    dxEdit3: TdxEdit;
    SpeedButton2: TSpeedButton;
    dxEdit4: TdxEdit;
    dxEdit5: TdxEdit;
    SpeedButton3: TSpeedButton;
    dxEdit6: TdxEdit;
    cbDate: TdxButtonEdit;
    dtpDate: TwwDBDateTimePicker;
    edtStartTime: TdxTimeEdit;
    edtEndTime: TdxTimeEdit;
    dxEdit7: TdxEdit;
    dxEdit8: TdxEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Cwa500_05Form: TCwa500_05Form;

implementation

{$R *.dfm}

procedure TCwa500_05Form.FormCreate(Sender: TObject);
begin
  inherited;
//
end;

procedure TCwa500_05Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

initialization
  RegisterClass(TCwa500_05Form);

finalization
  UnRegisterClass(TCwa500_05Form);

end.