u_user.pas

小银行系统

unit U_user;

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
  TF_user = class(TF_child1_1)
    ClientDataSet1sys_id: TStringField;
    ClientDataSet1user_no: TStringField;
    ClientDataSet1user_nm: TStringField;
    ClientDataSet1password: TStringField;
    ClientDataSet1administrator: TStringField;
    ClientDataSet1director: TStringField;
    ClientDataSet1fac_no: TStringField;
    ClientDataSet1sec_no: TStringField;
    ClientDataSet1add_date: TStringField;
    ClientDataSet1edit_date: TStringField;
    FAC: TADODataSet;
    DSFAC: TDataSource;
    SEC: TADODataSet;
    DSSEC: TDataSource;
    DIRECTOR: TADODataSet;
    DSDIRECTOR: TDataSource;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    DBEdit3: TDBEdit;
    StaticText6: TStaticText;
    DBEdit4: TDBEdit;
    StaticText7: TStaticText;
    DBEdit5: TDBEdit;
    StaticText8: TStaticText;
    DBEdit6: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    StaticText9: TStaticText;
    DBEdit7: TDBEdit;
    DBLookupComboBox3: TDBLookupComboBox;
    procedure DBEdit7Exit(Sender: TObject);
    procedure DBEdit7Enter(Sender: TObject);
    procedure DBEdit6Enter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DoInsert;override;
    procedure DoDelete;override;

  end;

var
  F_user: TF_user;

implementation
 uses u_main;
{$R *.dfm}

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

procedure TF_user.DBEdit7Exit(Sender: TObject);
begin
  inherited;
  IF  SELF.ClientDataSet1.RecordCount>1  THEN
  IF  SELF.DBLookupComboBox2.Text<>''  THEN
  IF  SELF.DBLookupComboBox3.Text=''  THEN
  BEGIN
      SHOWMESSAGE('请输入正确的主管代号！');
      SELF.DBLookupComboBox3.SetFocus;
      EXIT;
  END
  ELSE   f_main.B_UPDATE.SetFocus;

end;

procedure TF_user.DBEdit7Enter(Sender: TObject);
begin
  inherited;
  DIRECTOR.Active:=FALSE;
  DIRECTOR.Active:=TRUE;
  IF  SELF.DBLookupComboBox2.Text=''  THEN
  BEGIN
      SHOWMESSAGE('请输入正确的组别代号！');
      DBEDIT6.SetFocus;
      EXIT;
  END
  ELSE
  IF  SELF.ClientDataSet1.RecordCount=0  THEN
  BEGIN
     DBEdit7.TEXT:=DBEDIT1.Text;
     f_MAIN.B_update.SetFocus;
     EXIT;
   END;

end;

procedure TF_user.DBEdit6Enter(Sender: TObject);
begin
  inherited;
  IF  SELF.DBLookupComboBox1.Text=''  THEN
  BEGIN
      SHOWMESSAGE('请输入正确的厂别代号！');
      DBEDIT5.SetFocus;
      EXIT;
  END;

end;

procedure TF_user.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  self.ClientDataSet1.Free ;
  F_user:=nil;

end;

procedure TF_user.DoDelete;
begin
  if  dbedit1.Text='ADMINISTRATOR'  then
  begin
     showmessage('管理员用户不得删除！');
     exit;
  end;
  inherited;

end;

procedure TF_user.FormCreate(Sender: TObject);
begin
  inherited;
  fac.Active:=true;
  sec.Active:=true;
  director.Active:=true;
  self.ClientDataSet1.Active :=true;
end;

end.