unit4.~pas

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

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    TabSheet2: TTabSheet;
    StaticText3: TStaticText;
    ComboBox1: TComboBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    TabSheet3: TTabSheet;
    StaticText4: TStaticText;
    Edit3: TEdit;
    StaticText5: TStaticText;
    ComboBox2: TComboBox;
    Button2: TButton;
    StaticText6: TStaticText;
    StaticText8: TStaticText;
    StaticText7: TStaticText;
    StaticText10: TStaticText;
    StaticText9: TStaticText;
    Edit4: TEdit;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOStoredProc1: TADOStoredProc;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    StaticText12: TStaticText;
    ComboBox3: TComboBox;
    StaticText13: TStaticText;
    Edit5: TEdit;
    StaticText14: TStaticText;
    Edit6: TEdit;
    Button3: TButton;
    Panel1: TPanel;
    StaticText15: TStaticText;
    Edit7: TEdit;
    Panel2: TPanel;
    StaticText16: TStaticText;
    GroupBox1: TGroupBox;
    DBGrid2: TDBGrid;
    ComboBox4: TComboBox;
    Edit8: TEdit;
    Button4: TButton;
    GroupBox2: TGroupBox;
    StaticText11: TStaticText;
    Edit9: TEdit;
    Button5: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Image4: TImage;
    Image5: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    //procedure TabSheet3ContextPopup(Sender: TObject; MousePos: TPoint;
     // var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  flag:char;
implementation
   uses unit3, Unit1;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
  with form3.ADOQuery1 do
  begin
     if(edit1.Text='')then
     begin
      showmessage('银行名不能为空');
      Exit;
     end;
     form3.ADOQuery1.active:=false;
     form3.ADOQuery1.SQL.Clear;
     form3.ADOQuery1.SQL.Add('select * from Bank where card_type=:a');
     form3.ADOQuery1.Parameters[0].Value:=Edit1.Text;
     form3.ADOQuery1.active:=true;
     if(form3.ADOQuery1.RecordCount>0)then
     begin
        showmessage('该银行已经存在了');
        Exit;
     end
     else
     begin
     form3.ADOQuery1.SQL.Clear;
     form3.ADOQuery1.SQL.Add('insert into Bank values(:a,:b,:c)');
     form3.ADOQuery1.Parameters[0].Value:=Edit1.Text;
     form3.ADOQuery1.Parameters[1].Value:=Edit2.Text;
     form3.ADOQuery1.Parameters[2].Value:=strtofloat('0');
     form3.ADOQuery1.ExecSQL;
     showmessage('开户成功');
     end;
  end;
end;

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

procedure TForm4.ComboBox1Select(Sender: TObject);
begin
 if(comboBox1.Text='中国工商银行')then
 begin
    with ADOQuery1 do
    begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from Bank_view where (银行名称=:a)');
      ADOQuery1.Parameters[0].Value:='中国工商银行';
      ADOQuery1.Open;
    end;
 end;
 if(comboBox1.Text='中国招商银行')then
 begin
    with ADOQuery1 do
    begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from Bank_view where (银行名称=:a)');
      ADOQuery1.Parameters[0].Value:='中国招商银行';
      ADOQuery1.Open;
    end;
 end;
 if(comboBox1.Text='中国农业银行')then
 begin
    with ADOQuery1 do
    begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from Bank_view where (银行名称=:a)');
      ADOQuery1.Parameters[0].Value:='中国农业银行';
      ADOQuery1.Open;
    end;
 end;
 if(comboBox1.Text='中信银行')then
 begin
    with ADOQuery1 do
    begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from Bank_view where (银行名称=:a)');
      ADOQuery1.Parameters[0].Value:='中信银行';
      ADOQuery1.Open;
    end;
 end;
 if(comboBox1.Text='中国光大银行')then
 begin
    with ADOQuery1 do
    begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from Bank_view where (银行名称=:a)');
      ADOQuery1.Parameters[0].Value:='中国光大银行';
      ADOQuery1.Open;
    end;
 end;
 if(comboBox1.Text='中国建设银行')then
 begin
    with form3.ADOQuery1 do
    begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from Bank_view where (银行名称=:a)');
      ADOQuery1.Parameters[0].Value:='中国建设银行';
      ADOQuery1.Open;
    end;
 end;


end;

procedure TForm4.Button2Click(Sender: TObject);
var
  temp,s,m:string;
  i:integer;
begin
     s:='CK'+FormatDateTime('yyyymmdd',Now());
        with adoquery1 do
           begin
           adoquery1.SQL.Clear;
           adoquery1.SQL.Add('select max(Card_no) as ss from Fund_bill');
           adoquery1.Open;
           end;
           if(adoquery1.FieldByName('ss').Value=null)then
           s:=s+'001'
           else
           begin
           m:=Trim(adoquery1.fieldByName('ss').Value);
           i:=strToint(Trim(copy(m,11,5)));
                if i<10 then
                    s:=s+'00'+inttostr(i+1)
                    else if i<100 then
                    s:=s+'0'+inttostr(i+1)