unit5.~pas

关于delphi的相关源码

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  Tfrm_money = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOQuery1: TADOQuery;
    ComboBox3: TComboBox;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure clear;
  end;

var
  frm_money: Tfrm_money;

implementation

uses Unit6, Unit1;

{$R *.dfm}

procedure Tfrm_money.BitBtn3Click(Sender: TObject);
begin
  close;  
end;

procedure Tfrm_money.BitBtn2Click(Sender: TObject);
begin
  form6:=Tform6.Create(application);
  form6.Show;
  hide;
end;

procedure Tfrm_money.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text='' then
  begin
    showmessage('单号不能为空!');
    edit1.SetFocus;
    clear;
    exit;
  end;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from baoxiao where dianhao='''+trim(Edit1.Text)+'''');
  adoquery1.Open;
  if adoquery1.RecordCount>0 then
  begin
    showmessage('已存在单号,请重新输入!');
    edit1.Clear;
    edit1.SetFocus;
    exit;
  end;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:='insert into baoxiao(dianhao,jiner,liucheng,chongzhang,gonghao) values('''+Edit1.Text+''','''+Edit2.Text+''','''+combobox1.Text+''','''+combobox2.Text+''','''+combobox3.Text+''')';
  adoquery1.ExecSQL;
  showmessage('添加报销记录成功!');
  clear;
end;

procedure Tfrm_money.FormCreate(Sender: TObject);
 var
    i:integer;
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select cardno from yonghu');
  adoquery1.Open;
  for i:=0 to adoquery1.RecordCount-1 do
  begin
    combobox3.Items.Add(adoquery1.fieldbyname('cardno').AsString);
    adoquery1.Next;
  end;
end;

procedure Tfrm_money.clear;
begin
  edit1.Clear;
  edit2.Clear;
  combobox1.Text:='';
  combobox2.Text:='';
  combobox3.Text:='';
end;

end.