unit12.pas

毕业设计

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls,unit2,unit19,Db, DBTables;

type
  TForm12 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label6: TLabel;
    Query1: TQuery;
    Query2: TQuery;
    Table1: TTable;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation
{$R *.DFM}

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

procedure TForm12.FormShow(Sender: TObject);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit1.Text:=user;
 edit2.text:=formatdatetime('yyyy''-''mm''-''dd',date);
 edit1.SetFocus;
 BitBtn2.Enabled:=false;
end;

procedure TForm12.BitBtn4Click(Sender: TObject);
begin
 edit1.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
end;

procedure TForm12.Edit1KeyPress(Sender: TObject; var Key: Char);
 var
  jine1,jine2:string;
begin
 if key=#13 then
   begin
    query1.Close;
    query1.sql.Clear;
    query1.SQL.add('select sum(金额小写) as jine from shouju where 经办人=:xingming and 日期=:riqi1');
    query1.ParamByName('xingming').asstring:=user;
    query1.ParamByName('riqi1').asdate:=date;
    query1.Open;
    jine1:=query1.fieldbyname('jine').asstring;
     if jine1='' then
      edit3.Text:='0'
     else
      edit3.Text:=jine1;
    query2.Close;
    query2.sql.Clear;
    query2.SQL.add('select sum(总价) as zongjia from kaizhipiao where 经办人=:xingming and 日期=:riqi2');
    query2.ParamByName('xingming').asstring:=user;
    query2.ParamByName('riqi2').asdate:=date;
    query2.Open;
    jine2:=query2.fieldbyname('zongjia').asstring;
     if jine2='' then
      edit4.Text:='0'
     else
      edit4.Text:=jine2;
    edit5.text:=floattostr(strtofloat(edit3.text)+strtofloat(edit4.text));
    edit5.SetFocus;
    end;
end;
procedure TForm12.BitBtn1Click(Sender: TObject);
begin
 table1.Close;
 table1.Open;
 table1.edit;
 table1.FieldByName('经办人').asstring:=edit1.Text;
 table1.FieldByName('汇总日期').asstring:=edit2.Text;
 table1.FieldByName('汇总数据号金额').asstring:=edit3.Text;
 table1.FieldByName('汇总开支金额').asstring:=edit4.Text;
 table1.FieldByName('汇总总金额').asstring:=edit5.Text;
 table1.Post;
 BitBtn2.Enabled:=true;
 end;

procedure TForm12.BitBtn2Click(Sender: TObject);
begin
   form19.query1.sql.clear;
   form19.query1.close;
   form19.Query1.SQL.Add('select * from shoufeihz where 经办人=:xingming and 汇总日期=:riqi');
   form19.Query1.ParamByName('xingming').asstring:=user;
   form19.Query1.ParamByName('riqi').asdate:=date;
   form19.query1.Open;
   form19.query1.Active:=true;
   form19.QuickRep1.preview;
   BitBtn2.Enabled:=false;
  end;
end.