jinzhanggl11.pas

delphi制作的校医院收费系统

unit jinzhanggl11;

interface

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

type
  Tjinzhanggl = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit6: TEdit;
    b_edit: TButton;
    b_add: TButton;
    b_save: TButton;
    b_close: TButton;
    Edit4: TEdit;
    Edit5: TEdit;
    Panel1: TPanel;
    Image1: TImage;
    Edit7: TEdit;
    procedure FormShow(Sender: TObject);
    procedure b_addClick(Sender: TObject);
    procedure b_editClick(Sender: TObject);
    procedure b_saveClick(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure b_closeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jinzhanggl: Tjinzhanggl;

implementation

{$R *.dfm} uses dmjinzhang11,login;

procedure Tjinzhanggl.FormShow(Sender: TObject);
begin
    dmjinzhang11.dmjinzhang.ADOQuery1.Close;
     dmjinzhang11.dmjinzhang.ADOQuery1.SQL.Clear;
     dmjinzhang11.dmjinzhang.ADOQuery1.SQL.Add('select * from 当日进帐表');
     dmjinzhang11.dmjinzhang.ADOQuery1.Open;
     edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';
     edit4.Text:='';
     edit5.Text:='';
     edit6.Text:='';
end;

procedure Tjinzhanggl.b_addClick(Sender: TObject);
var i:integer;
f:real;
begin
f:=0;
     dmjinzhang11.dmjinzhang.ADOQuery1.Close;
     dmjinzhang11.dmjinzhang.ADOQuery1.SQL.Clear;
     dmjinzhang11.dmjinzhang.ADOQuery1.SQL.Add('select * from 当日进帐表 where 进帐日期=');
     dmjinzhang11.dmjinzhang.ADOQuery1.SQL.Add(''''+formatdatetime('yyyy-mm-dd',now)+'''');
     dmjinzhang11.dmjinzhang.ADOQuery1.Open;
    if  dmjinzhang11.dmjinzhang.ADOQuery1.RecordCount<>0 then
    begin
       dmjinzhang11.dmjinzhang.ADOQuery1.Edit;
       edit2.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[3].AsFloat);
        edit3.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[4].AsFloat);
        edit4.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[5].AsFloat);
        edit5.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[5].AsFloat);
        edit6.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[7].AsFloat);
    end
    else
    begin
        dmjinzhang11.dmjinzhang.ADOQuery1.Append;
    end;
    edit1.Text:=login.Form1.DBEdit1.Text;
    dmjinzhang11.dmjinzhang.ADOQuery2.Close;
    dmjinzhang11.dmjinzhang.ADOQuery2.SQL.Clear;
    dmjinzhang11.dmjinzhang.ADOQuery2.SQL.Add('select * from 挂号表 where 挂号日期=');
    dmjinzhang11.dmjinzhang.ADOQuery2.SQL.Add(''''+formatdatetime('yyyy-mm-dd',now)+'''');
    dmjinzhang11.dmjinzhang.ADOQuery2.Open;
     for i:=0 to dmjinzhang11.dmjinzhang.ADOQuery2.RecordCount-1 do
              begin
              f:=f+dmjinzhang11.dmjinzhang.ADOQuery2.Fields[6].AsFloat;
              dmjinzhang11.dmjinzhang.ADOQuery2.Next;
              end;
     edit2.Text:=floattostr(f);
     
     

end;

procedure Tjinzhanggl.b_editClick(Sender: TObject);
begin
     dmjinzhang11.dmjinzhang.ADOQuery1.Edit;
      edit2.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[3].AsFloat);
        edit3.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[4].AsFloat);
        edit4.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[5].AsFloat);
        edit5.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[6].AsFloat);
        edit6.Text:=floattostr(dmjinzhang11.dmjinzhang.ADOQuery1.Fields[7].AsFloat);
end;

procedure Tjinzhanggl.b_saveClick(Sender: TObject);
begin
    dmjinzhang11.dmjinzhang.ADOQuery1.Fields[1].AsString:=edit1.Text;
    dmjinzhang11.dmjinzhang.ADOQuery1.Fields[2].AsDateTime:=strtodate(formatdatetime('yyyy-mm-dd',now));
    dmjinzhang11.dmjinzhang.ADOQuery1.Fields[3].AsFloat:=strtofloat(edit2.Text);
    dmjinzhang11.dmjinzhang.ADOQuery1.Fields[4].AsFloat:=strtofloat(edit3.Text);
    dmjinzhang11.dmjinzhang.ADOQuery1.Fields[5].AsFloat:=strtofloat(edit4.Text);
    dmjinzhang11.dmjinzhang.ADOQuery1.Fields[6].AsFloat:=strtofloat(edit5.Text);
    dmjinzhang11.dmjinzhang.ADOQuery1.Fields[7].AsFloat:=strtofloat(edit6.Text);
    dmjinzhang11.dmjinzhang.ADOQuery1.Post;

    end;

procedure Tjinzhanggl.Edit4KeyPress(Sender: TObject; var Key: Char);
var f:real;
begin
if key=#13 then
begin
   f:=strtofloat(edit2.Text)+strtofloat(edit3.Text)-strtofloat(edit4.Text)-strtofloat(edit5.Text);
   edit6.Text:=floattostr(f);
   end;
end;

procedure Tjinzhanggl.Edit5KeyPress(Sender: TObject; var Key: Char);
var f:real;
begin
    if key=#13 then
begin
   f:=strtofloat(edit2.Text)+strtofloat(edit3.Text)-strtofloat(edit4.Text)-strtofloat(edit5.Text);
   edit6.Text:=floattostr(f);
   end;
end;

procedure Tjinzhanggl.b_closeClick(Sender: TObject);
begin
     close;
end;

end.