ufrmlock_deposit.pas

来自「小银行系统」· PAS 代码 · 共 88 行

unit UfrmLock_Deposit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_child1_1, DB, DosMove, DBTables, DBClient, Provider, ADODB,
  Mask, StdCtrls, Buttons, DBCtrls, Grids, DBGridEh, ExtCtrls;

type
  TfrmLock_Deposit = class(TF_child1_1)
    Label1: TLabel;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    DBEdit10: TDBEdit;
    StaticText3: TStaticText;
    DBEdit3: TDBEdit;
    StaticText4: TStaticText;
    DBEdit4: TDBEdit;
    ClientDataSet1Cdate: TStringField;
    ClientDataSet1Lock_YN: TStringField;
    ClientDataSet1add_date: TStringField;
    ClientDataSet1add_user: TStringField;
    ClientDataSet1edit_date: TStringField;
    ClientDataSet1edit_user: TStringField;
    DBEdit5: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DoInsert;override;

  end;

var
  frmLock_Deposit: TfrmLock_Deposit;

implementation
uses U_main,UDM;

{$R *.dfm}

procedure TfrmLock_Deposit.DoInsert;
begin
  inherited;
  self.ClientDataSet1.FieldByName('Lock_YN').AsString := 'Y';
  self.ClientDataSet1.FieldByName('Cdate').AsString := f_main.vTodayDate ;
  self.ClientDataSet1.FieldByName('add_date').AsString :=f_main.vTodayDate ;
  self.ClientDataSet1.FieldByName('add_user').AsString :=f_main.vuser_no ;
end;

procedure TfrmLock_Deposit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  self.ADODataSet1.Free ;
  self.ClientDataSet1.Free ;
  self.DataSetProvider1.Free ;
  frmLock_Deposit :=nil ;
end;

procedure TfrmLock_Deposit.FormCreate(Sender: TObject);
begin
  inherited;
  self.ClientDataSet1.Active :=true ;
  self.DBGrid1.Visible:=true;
  self.Memo1.Visible:=false;

end;

procedure TfrmLock_Deposit.DBEdit2Exit(Sender: TObject);
begin
  inherited;
  if (DBEdit2.Text <>'Y') and (DBEdit2.Text <>'N') then
  begin
     showmessage('请输入Y或N，请重新输入!');
     dbEdit2.SetFocus ;
     exit ;
  end ;

end;

end.