untorderlease.pas

用delphi编写的数据库管理软件

unit untOrderLease;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BillBase, FR_DSet, FR_DBSet, MSNPopUp, FR_Class, DB, DBClient,
  ActnList, Menus, Grids, DBGridEh, StdCtrls, Mask, wwdbedit, ExtCtrls,
  DBCtrls, wwcheckbox, wwdblook, DBCtrlsEh, Buttons;

type
  TfrmOrderLease = class(TfrmBillBase)
    Label7: TLabel;
    wwDBEdit1: TwwDBEdit;
    Label6: TLabel;
    wwDBEdit2: TwwDBEdit;
    Label8: TLabel;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    Label9: TLabel;
    MaskEdit1: TMaskEdit;
    Label10: TLabel;
    CDSType: TClientDataSet;
    CDSTypefname: TWideStringField;
    CDSTypefcode: TWideStringField;
    CDSTypefid: TAutoIncField;
    CDSTypefremark: TWideStringField;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label12: TLabel;
    wwCheckBox1: TwwCheckBox;
    Label11: TLabel;
    DBMemo1: TDBMemo;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CDSMasterBeforePost(DataSet: TDataSet);
    procedure acNewExecute(Sender: TObject);
    procedure CDSMasterAfterScroll(DataSet: TDataSet);
    procedure MaskEdit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOrderLease: TfrmOrderLease;

implementation

uses DataProcess, untLookupOrderLease, untOrderLeaseState;

{$R *.dfm}

procedure TfrmOrderLease.FormDestroy(Sender: TObject);
begin
  inherited;
  frmOrderLease:=nil;
end;

procedure TfrmOrderLease.FormCreate(Sender: TObject);
begin
  inherited;
  Maintable:='TOrderLease';
  MainView:='VOrderLease';
  DetailTable:='TOrderLeaseSub';
  DetailView:='VOrderLeaseSub';
  MKeyField:='fid';
  DkeyField:='fid';
  Relatkey:='fsn';
  iBillTypeID:=30;
  MasterField:='fno';
  CompanyNamefield:='fCustomerName';
  RemarkField:='fremark';
  SearchForm:=TfrmLookupOrderLease;
  StatusForm:=TfrmOrderLeaseState;

end;

procedure TfrmOrderLease.FormShow(Sender: TObject);
begin
  inherited;
  GetsqlData(CDSType,'tRentType','fid','fid>0',20);

end;

procedure TfrmOrderLease.CDSMasterBeforePost(DataSet: TDataSet);
begin
With CDSMaster do
Begin
if VarisNUll(FieldValues['fCustomerName']) then
   Raise Exception.Create('客户联系人不能为空 ！');
if VarisNUll(FieldValues['frelationtel']) then
   Raise Exception.Create('客户联系电话不能为空 ！');
end;
  inherited;
  CDSMaster.FieldByName('fTime').AsString:=MaskEdit1.Text;
end;

procedure TfrmOrderLease.acNewExecute(Sender: TObject);
begin
  inherited;
  wwDBEDit1.SetFocus;
end;

procedure TfrmOrderLease.CDSMasterAfterScroll(DataSet: TDataSet);
begin
  inherited;
  if CDSMaster.fieldbyname('ftime').AsString<>'' then
  MaskEdit1.Text:=CDSMaster.fieldbyname('ftime').AsString
  else
  MaskEdit1.Text:='';
end;

procedure TfrmOrderLease.MaskEdit1Exit(Sender: TObject);
begin
  inherited;
  try
  if Strtoint(copy(Maskedit1.Text,1,2))>=24 then
    begin
      messagedlg('输入值只能在范围 23：59 - 00:01 , 请重新输入 ! ',mtWarning,[mbok],0);
      Maskedit1.Text:='';
      Exit;
    end;
  if Strtoint(copy(Maskedit1.Text,3,2))>=60 then
    begin
      messagedlg('输入值只能在范围 23：59 - 00:01 , 请重新输入 ! ',mtWarning,[mbok],0);
      Maskedit1.Text:='';
      Exit;
    end;
  except
  end;
end;

end.