pay500_04.pas.svn-base

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

unit Pay500_04;

interface

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

type
  TPay500_04Form = class(TBas200_07Form)
    lblType: TLabel;
    lblReason: TLabel;
    lblDesc: TLabel;
    lblEmpID: TLabel;
    lblDate: TLabel;
    lblValue: 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;
    dxEdit7: TdxEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Pay500_04Form: TPay500_04Form;

implementation

{$R *.dfm}

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

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

initialization
  RegisterClass(TPay500_04Form);

finalization
  UnRegisterClass(TPay500_04Form);

end.