unit5.pas

用dephi写的一个银行管理系统

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, DB, ADODB, Grids, DBGrids,
  DBTables, jpeg;

type
  TForm5 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    StaticText1: TStaticText;
    Edit1: TEdit;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Panel1: TPanel;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    StaticText9: TStaticText;
    Edit3: TEdit;
    Panel2: TPanel;
    StaticText10: TStaticText;
    StaticText11: TStaticText;
    StaticText12: TStaticText;
    StaticText13: TStaticText;
    StaticText14: TStaticText;
    StaticText15: TStaticText;
    StaticText4: TStaticText;
    StaticText16: TStaticText;
    Edit4: TEdit;
    StaticText17: TStaticText;
    ComboBox2: TComboBox;
    StaticText18: TStaticText;
    Edit5: TEdit;
    Panel3: TPanel;
    StaticText21: TStaticText;
    StaticText22: TStaticText;
    StaticText23: TStaticText;
    StaticText24: TStaticText;
    StaticText25: TStaticText;
    StaticText26: TStaticText;
    Button1: TButton;
    StaticText19: TStaticText;
    StaticText20: TStaticText;
    Edit6: TEdit;
    Edit7: TEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
uses unit3, Unit1;

{$R *.dfm}



procedure TForm5.FormCreate(Sender: TObject);
begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from Bank where Card_type=:a');
    ADOQuery1.Parameters[0].Value:='中国工商银行';
    ADOQuery1.Active:=true;
    ADOQuery1.Open;
    if(ADOQuery1.RecordCount>0)then begin combobox1.Items.Add('中国工商银行');combobox2.Items.Add('中国工商银行');end;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from Bank where Card_type=:a');
    ADOQuery1.Parameters[0].Value:='中国招商银行';
    ADOQuery1.Open;
    if(ADOQuery1.RecordCount>0)then begin combobox1.Items.Add('中国招商银行');combobox2.Items.Add('中国招商银行');end;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from Bank where Card_type=:a');
    ADOQuery1.Parameters[0].Value:='中国农业银行';
    ADOQuery1.Open;
    if(ADOQuery1.RecordCount>0)then begin combobox1.Items.Add('中国农业银行');combobox2.Items.Add('中国农业银行');end;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from Bank where Card_type=:a');
    ADOQuery1.Parameters[0].Value:='中信银行';
    ADOQuery1.Open;
    if(ADOQuery1.RecordCount>0)then begin combobox1.Items.Add('中信银行');combobox2.Items.Add('中信银行');end;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from Bank where Card_type=:a');
    ADOQuery1.Parameters[0].Value:='中国光大银行';
    ADOQuery1.Open;
    if(ADOQuery1.RecordCount>0)then begin combobox1.Items.Add('中国光大银行');combobox2.Items.Add('中国光大银行');end;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from Bank where Card_type=:a');
    ADOQuery1.Parameters[0].Value:='中国建设银行';
    ADOQuery1.Open;
    if(ADOQuery1.RecordCount>0)then begin combobox1.Items.Add('中国建设银行');combobox2.Items.Add('中国建设银行');end;


end;

procedure TForm5.BitBtn1Click(Sender: TObject);
var
  m1:integer;
  amount:string;
  lixi,benjin:double;
  str:string;
begin
   //type1:=trim(combobox1.Text);
   //no1:=Edit2.Text;
    str:='select * from Fund_bill where Card_type='''+combobox1.Text+''' and card_no='''+Edit2.Text+'''';
   //query1.SQL.Clear;
   adoquery1.SQL.Clear;
  adoquery1.SQL.Add(str);
   //adoquery1.Parameters[0].Value:='中国工商银行';
  // adoquery1.Parameters[1].value:=no1;
  adoquery1.Open;
  //query1.SQL.Add('select * from Fund_bill where (Card_type=:a and Card_no=:b)');
 //query1.Params[0].AsString:=type1;
 // query1.Params[1].AsString:=no1;
 // query1.Prepare;
//  query1.Open;
   if(adoquery1.RecordCount<=0)then begin
     showmessage('该客户信息不存在，请确认你的查询信息');
     Exit;
   end;

   adoquery1.Close;
   adoquery1.SQL.Clear;
   str:='select * from Fund_bill where Card_type='''+combobox1.Text+''' and card_no='''+Edit2.Text+''' and Keyword='''+Edit3.Text+'''';
   adoquery1.SQL.Add(str);
  // query1.Params[0].AsString:=combobox1.Text;
  // query1.Params[1].asstring:=Edit2.Text;
  // query1.Params[2].asstring:=Edit3.Text;
   adoquery1.Open;
   if(adoquery1.RecordCount<=0)then begin
     showmessage('输入密码错误');
    Exit;
   end;
   //---------查询是不是透支(本金为0)----------
   if(adoquery1.fieldbyname('Fortune_amount').Value=0.0)then
   begin
   adoquery1.SQL.Clear;
   str:='select amount as amount,datediff(day,dat,getdate()) as ttot from overdraft where card_type='''+combobox1.Text+''' and card_no='''+Edit2.Text+'''';
   adoquery1.SQL.Add(str);
   adoquery1.Open;
   //adoquery1.Parameters[0].asstring:=combobox1.Text;
   //adoquery1.Params[1].asstring:=Edit2.Text;
   if(adoquery1.RecordCount>0)then
   begin
     amount:=floattostr(adoquery1.fieldbyname('amount').Value);
     amount:=amount+'RMB';
     StaticText12.Caption:=amount;
     m1:=100-adoquery1.fieldbyname('ttot').Value;
     if(m1<0)then begin
      StaticText14.Caption:='你已经过了换款期'+inttostr(abs(m1))+'天，请尽快还款';
     panel2.Visible:=true;
     Exit;;
     end;
     if(m1>=0)then begin
     StaticText14.Caption:=inttostr(m1)+'天后';
     panel2.Visible:=true;
     Exit;
     end;
   end;
   //---------end--------
   //-------没有存款，也没有透支---------
   showmessage('你没有存款，也没有透支');
  //-----------end--------
   Exit;
   end;
   if(adoquery1.fieldbyname('Fortune_amount').Value>0.0)then
   begin
   benjin:=adoquery1.FieldByName('Fortune_amount').AsFloat;
   adoquery1.SQL.Clear;
   str:='select datediff(day,deposit_date,getdate()) as ttot from fund_bill where card_type='''+combobox1.Text+''' and card_no='''+Edit2.Text+'''';
   adoquery1.SQL.Add(str);
   //query1.Params[0].asstring:=combobox1.Text;
   //query1.Params[1].asstring:=Edit2.Text;
   adoquery1.Open;
   lixi:=benjin*0.05*adoquery1.fieldbyname('ttot').Value;
   StaticText6.Caption:=floattostr(benjin)+'RMB';
   StaticText8.Caption:=floattostr(lixi)+'RMB';
   Panel1.Visible:=true;
   end;
end;

procedure TForm5.Button1Click(Sender: TObject);
var
  s1,s2:double;
  str:string;
begin
 if(edit4.Text='')then begin showmessage('客户号不能为空');Exit;end;
 if(edit5.Text='')then begin showmessage('贷款号不能为空');Exit;end;
 adoquery1.SQL.Clear;
 str:='select * from customer_loan where(customer_id='+Edit4.Text+' and loan_pack_no='''+Edit5.Text+''' and card_type='''+ComboBox2.Text+''')';
 adoquery1.SQL.Add(str);
 //adoquery1.Parameters[0].Value:=Edit4.Text;
 //adoquery1.Parameters[1].Value:=Edit5.Text;
 //adoquery1.Parameters[2].Value:=ComboBox2.Text;
 adoquery1.Open;
 if(adoquery1.RecordCount<=0) then begin
 showmessage('该贷款不存在，请确保输入信息正确');
 exit;
 end;
 adoquery1.SQL.Clear;
 str:='select loan_money as s1,rest_money as s2,rate as s3 from loan_pack where(loan_pack_no='''+Edit5.Text+''' and card_type='''+ComboBox2.Text+''')';
 adoquery1.SQL.Add(str);
 //adoquery1.Parameters[0].Value:=Edit5.Text;
 //adoquery1.Parameters[1].Value:=ComboBox2.Text;
 adoquery1.Open;
 s1:=adoquery1.fieldbyname('s1').Value;
 s2:=adoquery1.fieldbyname('s2').Value;
 StaticText22.Caption:=floattostr(s1);
 StaticText24.Caption:=floattostr(adoquery1.fieldbyname('s3').Value);
 StaticText26.Caption:=floattostr(s2);
 Panel3.Visible:=true;
end;

procedure TForm5.Button2Click(Sender: TObject);
var
 str:string;
begin
  adoquery1.SQL.Clear;
  str:='select * from payoff_pro where (customer_id='+edit6.Text+' and loan_pack_no='''+Edit7.Text+''')';
  adoquery1.SQL.Add(str);
  //adoquery1.Parameters[0].Value:= Edit6.Text;
  //adoquery1.Parameters[1].Value:= Edit7.Text;
  adoquery1.Open;
end;

procedure TForm5.Image1Click(Sender: TObject);
begin
 self.Hide;
 form1.N5.Visible:=false;
 form1.N8.Visible:=true;
 form1.Show;
end;

procedure TForm5.Image2Click(Sender: TObject);
begin
 self.Hide;
 form1.N5.Visible:=false;
 form1.N8.Visible:=true;
 form1.Show;
end;

procedure TForm5.Image3Click(Sender: TObject);
begin
   self.Hide;
   form1.N5.Visible:=false;
   form1.N8.Visible:=true;
   FORM1.Show;
end;

end.