ufrmrep_loss.pas

小银行系统

unit UfrmRep_Loss;

interface

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

type
  TfrmRep_Loss = class(TF_child1_1)
    PanTop: TPanel;
    Label3: TLabel;
    Label5: TLabel;
    Label11: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Edtfac_nm: TEdit;
    Edtsec_nm: TEdit;
    BitBtn_query: TBitBtn;
    Edtpers: TEdit;
    EdtPY: TEdit;
    BitBtn1: TBitBtn;
    Edtyymmdd: TMaskEdit;
    Label14: TLabel;
    Label8: TLabel;
    Label15: TLabel;
    DBEdit20: TDBEdit;
    ADOFactory: TADODataSet;
    ADOFactoryfac_no: TStringField;
    ADOFactoryfac_nm: TStringField;
    ADOsec: TADODataSet;
    ADOsecsec_no: TStringField;
    ADOsecsec_nm: TStringField;
    Label26: TLabel;
    MaskEdit1: TMaskEdit;
    wwDBLookupCombosec_no: TwwDBLookupCombo;
    Label4: TLabel;
    wwDBLookupComboFac_no: TwwDBLookupCombo;
    ClientDataSet1ACC_NO: TStringField;
    ClientDataSet1Per_na: TStringField;
    ClientDataSet1Per_no: TStringField;
    ClientDataSet1fac_no: TStringField;
    ClientDataSet1sec_no: TStringField;
    ClientDataSet1Bz_no: TStringField;
    ClientDataSet1Cre_date: TStringField;
    ClientDataSet1remark: TStringField;
    ClientDataSet1PY: TStringField;
    ClientDataSet1fac_nm: TStringField;
    ClientDataSet1sec_nm: TStringField;
    Label1: TLabel;
    DBEdit3: TDBEdit;
    Label2: TLabel;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit4: TDBEdit;
    Label9: TLabel;
    EdtACC_NO: TEdit;
    Label10: TLabel;
    DBEdit6: TDBEdit;
    ClientDataSet1add_date: TStringField;
    ClientDataSet1add_user: TStringField;
    ClientDataSet1edit_date: TStringField;
    ClientDataSet1edit_user: TStringField;
    Edtendyymmdd: TMaskEdit;
    ClientDataSet1New_fac_no: TStringField;
    ClientDataSet1New_sec_no: TStringField;
    Label12: TLabel;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    ClientDataSet1Cancel_YN: TStringField;
    ClientDataSet1cancel_date: TStringField;
    ClientDataSet1New_fac_nm: TStringField;
    ClientDataSet1New_sec_nm: TStringField;
    Label16: TLabel;
    EdtPer_no: TEdit;
    EdtPer_na: TEdit;
    CheckBox1: TCheckBox;
    ClientDataSet1IN_10: TStringField;
    ClientDataSet1IN_9: TStringField;
    ClientDataSet1IN_8: TStringField;
    ClientDataSet1IN_7: TStringField;
    ClientDataSet1IN_6: TStringField;
    ClientDataSet1IN_5: TStringField;
    ClientDataSet1IN_4: TStringField;
    ClientDataSet1IN_3: TStringField;
    ClientDataSet1IN_2: TStringField;
    ClientDataSet1IN_1: TStringField;
    ClientDataSet1serial_no: TStringField;
    Shape1: TShape;
    ClientDataSet1IN_money: TBCDField;
    ClientDataSet1Cdate: TStringField;
    ClientDataSet1rem_money: TBCDField;
    Label19: TLabel;
    DBEdit16: TDBEdit;
    Label20: TLabel;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    Label17: TLabel;
    MaskEdit2: TMaskEdit;
    ClientDataSet1rep_loss_YN: TStringField;
    ClientDataSet1rep_loss_date: TStringField;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn_queryClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MaskEdit1Exit(Sender: TObject);
    procedure wwDBLookupCombosec_noExit(Sender: TObject);
    procedure wwDBLookupComboFac_noExit(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure MaskEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
    vpers :integer ;
  public
    { Public declarations }
    procedure DoInsert;override;
    procedure DoEdit;override;
    procedure DoGetData;override;
    procedure DoDelete;override;
    procedure DoSave;override;
    procedure DoCancel;override;
  end;

var
  frmRep_Loss: TfrmRep_Loss;
  frmFirst,confirm,First_code :boolean;

implementation
uses U_main,UDM,U_sele,user_func,fuct_server,UExcelTools;

{$R *.dfm}

procedure TfrmRep_Loss.DoInsert;
begin
  inherited;
  if confirm =false then
  begin
     f_main.B_cancel.Click ;
     exit ;
  end ;
  MaskEdit1.Text :=f_main.vTodayDate ;
  MaskEdit1.Visible :=true;
  DBEdit2.Visible :=false;

  self.ClientDataSet1.FieldByName('rep_loss_YN').AsString := 'Y';
  self.ClientDataSet1.FieldByName('rep_loss_date').AsString := f_main.vTodayDate ;
  self.ClientDataSet1.FieldByName('add_date').AsString :=f_main.vTodayDate ;
  self.ClientDataSet1.FieldByName('add_user').AsString :=f_main.vuser_no ;
  First_code :=true ;
  DBEdit1.Enabled :=false ;
  DBEdit2.SetFocus ;
end;

procedure TfrmRep_Loss.DoEdit;
begin
  inherited;
  if confirm =false then
  begin
     f_main.B_cancel.Click ;
     exit ;
  end ;
  MaskEdit1.Visible :=true;
  DBEdit2.Visible :=false;
  self.ClientDataSet1.FieldByName('rep_loss_YN').AsString := 'Y';
  MaskEdit1.Text := self.ClientDataSet1.FieldByName('rep_loss_date').AsString ;
  self.ClientDataSet1.FieldByName('edit_date').AsString :=f_main.vTodayDate ;
  self.ClientDataSet1.FieldByName('edit_user').AsString :=f_main.vuser_no ;
end;

procedure TfrmRep_Loss.DoGetData;
begin
  inherited;
end;

procedure TfrmRep_Loss.DoDelete;
begin
  inherited;
end;

procedure TfrmRep_Loss.DoCancel;
begin
  inherited;
  MaskEdit1.Visible :=false;
  DBEdit2.Visible :=true;

end;

//存档
procedure TfrmRep_Loss.DoSave;
begin
  if (self.ClientDataSet1.State=dsInsert) OR
     (self.ClientDataSet1.State=dsEdit) then
  begin
    if (DBEdit1.Text ='') then
    begin
       showmessage('帐号不能为空，请重新输入!');
       dbEdit1.SetFocus ;
       exit ;
    end ;
  end;
  self.ClientDataSet1rep_loss_YN.Value :='Y' ; 
  inherited;
  if (self.ClientDataSet1.State=dsInsert) then
  begin
     vpers := vpers + 1 ;
     Edtpers.Text := inttostr(vpers) ;
  end ;
  MaskEdit1.Visible :=false;
  DBEdit2.Visible :=true;
end;

procedure TfrmRep_Loss.BitBtn1Click(Sender: TObject);
begin
  inherited;
  close ;
end;

procedure TfrmRep_Loss.FormCreate(Sender: TObject);
var sqlstr:string;
begin
  inherited;
  self.ADOFactory.Active :=true;
  self.ADOsec.Active :=true;
  frmFirst :=true;
  confirm :=false ;
  Edtyymmdd.Text := Copy(f_main.vTodayDate,1,7)+'-01' ;
  Edtendyymmdd.Text :=f_main.vTodayDate ;

  sqlstr :='';
  sqlstr := sqlstr+' and A.Cre_date>='''+ Edtyymmdd.Text+'''' ;
  sqlstr := sqlstr+' and A.Cre_date<='''+ Edtendyymmdd.Text+'''' ;
  sqlstr := sqlstr+' and A.rep_loss_YN=''Y'' ' ;
  sqlstr := copy(sqlstr,6,length(sqlstr)-5);
  if trim(sqlstr)<>'' then
     sqlstr := ' where '+sqlstr ;

  sqlstr:='SELECT A.*,B.fac_nm,C.sec_nm,E.fac_nm New_fac_nm,F.sec_nm New_sec_nm,'+
   'G.Cdate, G.IN_money, G.rem_money '+
   ' FROM Account  A LEFT  JOIN factory  B  ON A.fac_no = B.fac_no '+
   ' LEFT  JOIN Sec C ON A.sec_no = C.sec_no '+
   ' LEFT  JOIN factory  E  ON A.New_fac_no = E.fac_no '+
   ' LEFT  JOIN Sec F ON A.New_sec_no = F.sec_no '+
   ' LEFT  JOIN Deposit G ON A.Acc_no=G.Acc_no '+
   ' AND A.Cre_date=G.Cdate  AND A.serial_no=G.serial_no '+sqlstr +
   ' ORDER  BY A.Acc_no ';

  self.ClientDataSet1.Active :=false;
  self.ADODataSet1.CommandText:=sqlstr;
  self.ClientDataSet1.Active :=true;
  self.DBGrid1.Visible :=true;
  vpers := self.ClientDataSet1.RecordCount ;
  Edtpers.Text := inttostr(vpers) ;
  MaskEdit1.Visible :=false;
  DBEdit2.Visible :=true;
  confirm :=true ;

end;

procedure TfrmRep_Loss.FormActivate(Sender: TObject);
begin
  inherited;
  if frmFirst=true then
  begin
     wwDBLookupComboFac_no.SetFocus ;
     frmFirst :=false;
     MaskEdit1.Visible :=false;
     DBEdit2.Visible :=true;
  end;
end;

procedure TfrmRep_Loss.BitBtn_queryClick(Sender: TObject);
var sqlstr:string;
  vlen: integer ;
begin
  inherited;
  sqlstr :='';
  if EdtACC_NO.Text <>''   then
     sqlstr :=sqlstr +' and A.Acc_no='''+edtAcc_no.Text +''''
  else
  begin
    if wwDBLookupComboFac_no.Text <>'' then
       sqlstr := sqlstr + ' and A.fac_no='''+ wwDBLookupComboFac_no.Text +'''';
    if wwDBLookupCombosec_no.Text <>'' then
       sqlstr := sqlstr + ' and A.sec_no='''+wwDBLookupCombosec_no.Text +'''';
    if (edtyymmdd.text <>'    -  -  ') then
        sqlstr := sqlstr+' and A.Cre_date>='''+ Edtyymmdd.Text+'''' ;
    if (Edtendyymmdd.Text<>'    -  -  ') then
       sqlstr := sqlstr+' and A.Cre_date<='''+ Edtendyymmdd.Text+'''' ;

    if Edtper_no.Text <>'' then
       sqlstr := sqlstr+' and A.per_no = '''+ EdtPer_no.Text +'''' ;
    if Edtper_na.Text <>'' then
       sqlstr := sqlstr+' and A.per_na like ''%'+ TRIM(Edtper_na.Text)+'%''' ;
    if EdtPY.Text <>'' then
       sqlstr := sqlstr+' and A.PY='''+ EdtPY.Text+ ''' ';
  end;
  if not CheckBox1.Checked then
     sqlstr := sqlstr+' and A.rep_loss_YN=''Y'' ' ;

  sqlstr := copy(sqlstr,6,length(sqlstr)-5);
  if trim(sqlstr)<>'' then
     sqlstr := ' where '+sqlstr ;

  sqlstr:='SELECT A.*,B.fac_nm,C.sec_nm,E.fac_nm New_fac_nm,F.sec_nm New_sec_nm,'+
   'G.Cdate, G.IN_money, G.rem_money '+
   ' FROM Account  A LEFT  JOIN factory  B  ON A.fac_no = B.fac_no '+
   ' LEFT  JOIN Sec C ON A.sec_no = C.sec_no '+
   ' LEFT  JOIN factory  E  ON A.New_fac_no = E.fac_no '+
   ' LEFT  JOIN Sec F ON A.New_sec_no = F.sec_no '+
   ' LEFT  JOIN Deposit G ON A.Acc_no=G.Acc_no '+
   ' AND A.Cre_date=G.Cdate  AND A.serial_no=G.serial_no '+sqlstr +
   ' ORDER  BY A.Acc_no ';

  self.ClientDataSet1.Active :=false;
  self.ADODataSet1.CommandText:=sqlstr;
  self.ClientDataSet1.Active :=true;
  self.DBGrid1.Visible :=true;

  vpers := self.ClientDataSet1.RecordCount ;
  Edtpers.Text := inttostr(vpers) ;

  MaskEdit1.Visible :=false;
  DBEdit2.Visible :=true;
  confirm :=true ;
end;

procedure TfrmRep_Loss.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  self.ADOFactory.Free ;
  self.ADOsec.Free ;
  self.ADODataSet1.Free ;
  self.ClientDataSet1.Free ;
  self.DataSetProvider1.Free ;
  frmRep_Loss :=nil;
end;

procedure TfrmRep_Loss.MaskEdit1Exit(Sender: TObject);
begin
  inherited;
  if not isdate(MaskEdit1.Text) then
  begin
     showmessage('挂失日期输入错误，请重新输入!');
     MaskEdit1.SetFocus ;
     exit ;
  end ;
  DBEdit2.Text :=MaskEdit1.Text ;

end;

procedure TfrmRep_Loss.wwDBLookupCombosec_noExit(Sender: TObject);
begin
  inherited;
  if  self.ADOsec.Locate('sec_no',wwDBLookupCombosec_no.Text,[])  then
      edtsec_nm.text :=self.ADOsec.fieldbyname('sec_nm').asstring;

end;

procedure TfrmRep_Loss.wwDBLookupComboFac_noExit(Sender: TObject);
begin
  inherited;
  if  self.ADOFactory.Locate('fac_no',wwDBLookupCombofac_no.Text,[])  then
      edtfac_nm.text :=self.ADOFactory.fieldbyname('fac_nm').asstring;

end;

procedure TfrmRep_Loss.DBEdit1Exit(Sender: TObject);
var
  TempAdo : TAdodataSet;
  sqlstr :string;
begin
  inherited;
  // 读取开户资料
  sqlstr:='SELECT A.*, B.fac_nm,C.sec_nm  FROM Account A '+
   ' LEFT  JOIN factory B ON A.fac_no = B.fac_no '+
   ' LEFT  JOIN Sec C ON A.sec_no = C.sec_no '+
   ' WHERE A.Acc_no='''+DBEdit1.text +''' ' ;
  TempAdo := TAdodataSet.Create(nil);
  try
    TempAdo.Connection := DM.ADOConnection1 ;
    TempAdo.CommandText := Sqlstr;
    TempAdo.Prepared := True;
    TempAdo.Open;
    if not TempAdo.eof then
    begin
       DBEdit18.Text := TempAdo.fieldbyname('per_na').AsString ;
       DBEdit3.Text := TempAdo.fieldbyname('per_no').AsString ;
       DBEdit6.Text := TempAdo.fieldbyname('Bz_no').AsString ;
       DBEdit5.Text := TempAdo.fieldbyname('PY').AsString ;
       DBEdit4.Text := TempAdo.fieldbyname('Cre_date').AsString ;
       DBEdit7.Text := TempAdo.fieldbyname('fac_no').AsString ;
       DBEdit8.Text := TempAdo.fieldbyname('fac_nm').AsString ;
       DBEdit10.Text:= TempAdo.fieldbyname('sec_no').AsString ;
       DBEdit9.Text := TempAdo.fieldbyname('sec_nm').AsString ;
       DBEdit11.Text:= TempAdo.fieldbyname('new_fac_no').AsString ;
       DBEdit13.Text:= TempAdo.fieldbyname('new_sec_no').AsString ;
       DBEdit12.Text:= TempAdo.fieldbyname('new_fac_nm').AsString ;
       DBEdit14.Text:= TempAdo.fieldbyname('new_sec_nm').AsString ;
       DBEdit17.Text :=TempAdo.fieldbyname('Cancel_YN').AsString ;
       DBEdit16.Text :=TempAdo.fieldbyname('Cancel_Date').AsString ;
       DBEdit20.Text := TempAdo.fieldbyname('remark').AsString ;
    end
    else
    begin
       showmessage('此储户不存在，请重新输入!');
       DBEdit1.SetFocus ;
       exit ;
    end ;
  finally
    TempAdo.Free;
  end ;

end;

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

procedure TfrmRep_Loss.BitBtn2Click(Sender: TObject);
var
  sqlstr :string;
  ADOQpub :TAdoQuery ;
begin
  inherited;
   sqlstr:='UPDATE Account SET rep_loss_YN=''N'',rep_loss_date='''' WHERE Acc_no='''
   +EdtACC_NO.Text +'''';
   sqlstr:='begin tran'#13+Sqlstr
          +'if @@error!=0 begin raiserror(''操作失败!'',16,1) rollback return end'#13
          +'commit tran';
   ADOQpub := TAdoQuery.Create(nil);
   try
       ADOQpub.Connection := DM.ADOConnection1 ;
       ADOQpub.Close ;
       ADOQpub.SQL.Clear ;
       ADOQpub.SQL.Add(Sqlstr);
       ADOQpub.ExecSQL ;
       DBEdit2.Text :='';
       MaskEdit2.Text :='    -  -  ';
   finally
       ADOQpub.Free;
   end;

end;

end.