user_fac.pas

小银行系统

unit user_fac;

interface

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

type
  TfrmUser_fac = class(TF_child1_1)
    StaticText1: TStaticText;
    StaticText5: TStaticText;
    DBEdit6: TDBEdit;
    StaticText2: TStaticText;
    StaticText6: TStaticText;
    DBEdit3: TDBEdit;
    StaticText3: TStaticText;
    DBEdit4: TDBEdit;
    StaticText4: TStaticText;
    DBEdit5: TDBEdit;
    ClientDataSet1sys_id: TStringField;
    ClientDataSet1user_no: TStringField;
    ClientDataSet1fac_no: TStringField;
    ClientDataSet1add_date: TStringField;
    ClientDataSet1edit_date: TStringField;
    ClientDataSet1fac_nm: TStringField;
    ClientDataSet1user_nm: TStringField;
    ADOFactory: TADODataSet;
    ADOFactoryfac_no: TStringField;
    ADOFactoryfac_nm: TStringField;
    ADOuserdb: TADODataSet;
    ADOuserdbuser_no: TStringField;
    ADOuserdbuser_nm: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2Exit(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DoInsert;override;

  end;

var
  frmUser_fac: TfrmUser_fac;

implementation
uses U_main,UDM,U_sele,fuct_server ;

{$R *.dfm}

//新增资料
procedure TfrmUser_fac.DoInsert;
begin
  inherited;
  self.ClientDataSet1.FieldByName('sys_id').AsString :='4' ;
end;

procedure TfrmUser_fac.FormCreate(Sender: TObject);
begin
  inherited;
  self.ADOFactory.Active :=true;
  self.ADOuserdb.Active :=true;

end;

procedure TfrmUser_fac.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  self.ADOFactory.Free ;
  self.ADOuserdb.Free ;
  frmUser_fac := nil ;

end;

procedure TfrmUser_fac.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
 if key=13 then f_main.B_update.SetFocus;

end;

procedure TfrmUser_fac.DBEdit2Exit(Sender: TObject);
begin
  inherited;
  if f_main.ActiveControl =f_main.B_cancel then abort ;
  if  self.ADOFactory.Locate('fac_no',DBEdit2.Text,[])  then
  begin
      self.ClientDataSet1fac_no.Value :=self.ADOFactory.fieldbyname('fac_no').Value;
      self.ClientDataSet1fac_nm.Value :=self.ADOFactory.fieldbyname('fac_nm').Value;
  end
  else
  begin
    with self.ADOFactory do
    begin
      Fields[0].DisplayLabel := '厂别代号';
      Fields[1].DisplayLabel := '厂别名称';
    end;
    if F_sele=nil then F_sele:=TF_sele.Create(self);
       F_sele.DataSource1.DataSet:=self.ADOFactory ;
    if F_sele.ShowModal=mrOK then
       begin
         self.ClientDataSet1fac_no.Value :=self.ADOFactory.fieldbyname('fac_no').Value;
         self.ClientDataSet1fac_nm.Value :=self.ADOFactory.fieldbyname('fac_nm').Value;
       end;
  end;

end;

procedure TfrmUser_fac.DBEdit1Exit(Sender: TObject);
begin
  inherited;
  if f_main.ActiveControl =f_main.B_cancel then abort ;
  if  self.ADOuserdb.Locate('user_no',DBEdit1.Text,[])  then
  begin
      self.ClientDataSet1user_no.Value :=self.ADOuserdb.fieldbyname('user_no').Value;
      self.ClientDataSet1user_nm.Value :=self.ADOuserdb.fieldbyname('user_nm').Value;
  end
  else
  begin
    with self.ADOuserdb do
    begin
      Fields[0].DisplayLabel := '用户代号';
      Fields[1].DisplayLabel := '用户名称';
    end;
    if F_sele=nil then F_sele:=TF_sele.Create(self);
       F_sele.DataSource1.DataSet:=self.ADOuserdb ;
    if F_sele.ShowModal=mrOK then
       begin
         self.ClientDataSet1user_no.Value :=self.ADOuserdb.fieldbyname('user_no').Value;
         self.ClientDataSet1user_nm.Value :=self.ADOuserdb.fieldbyname('user_nm').Value;
       end;
  end;

end;

end.