cygl11.pas

delphi制作的校医院收费系统

unit cygl11;

interface

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

type
  Tcygl = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Bevel1: TBevel;
    GroupBox4: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    GroupBox5: TGroupBox;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cygl: Tcygl;

implementation

{$R *.dfm}  uses dmcygl11;

procedure Tcygl.BitBtn4Click(Sender: TObject);
begin
    close;
end;

procedure Tcygl.FormShow(Sender: TObject);
begin
     edit1.Text:='';
      edit2.Text:='';
      edit3.Text:='';
      edit4.Text:='';
      edit5.Text:='';
      edit6.Text:='';
      edit7.Text:='';
      edit8.Text:='';
      dmcygl11.dmcygl.ADOQuery1.Close;
      dmcygl11.dmcygl.ADOQuery1.SQL.Clear;
      dmcygl11.dmcygl.ADOQuery1.SQL.Add('select * from 住院收费结算表');
      dmcygl11.dmcygl.ADOQuery1.Open;
      dmcygl11.dmcygl.ADOQuery2.Close;
       dmcygl11.dmcygl.ADOQuery2.SQL.Clear;
        dmcygl11.dmcygl.ADOQuery2.SQL.Add('select * from 出院结算信息表');
         dmcygl11.dmcygl.ADOQuery2.Open;
        edit1.SetFocus;

end;

procedure Tcygl.Button1Click(Sender: TObject);
begin
     edit1.Text:='';
      edit2.Text:='';
      edit3.Text:='';
      edit4.Text:='';
      edit5.Text:='';
      edit6.Text:='';
      edit7.Text:='';
      edit8.Text:='';
      edit1.SetFocus;
end;

procedure Tcygl.Button2Click(Sender: TObject);
begin
   dmcygl11.dmcygl.ADOQuery3.Close;
    dmcygl11.dmcygl.ADOQuery3.SQL.Clear;
    dmcygl11.dmcygl.ADOQuery3.SQL.Add('select * from 预交款信息表 where 病房号=');
    dmcygl11.dmcygl.ADOQuery3.SQL.Add(''''+edit1.Text+'''');
    dmcygl11.dmcygl.ADOQuery3.Open;
    edit2.Text:=edit1.Text;
    edit7.Text:=floattostr(dmcygl11.dmcygl.ADOQuery3.Fields[2].AsFloat);
     dmcygl11.dmcygl.ADOQuery1.Close;
      dmcygl11.dmcygl.ADOQuery1.SQL.Clear;
      dmcygl11.dmcygl.ADOQuery1.SQL.Add('select * from 住院收费结算表 where 病房号=');
       dmcygl11.dmcygl.ADOQuery1.SQL.Add(''''+edit1.Text+'''');
      dmcygl11.dmcygl.ADOQuery1.Open;
      edit3.Text:=floattostr(dmcygl11.dmcygl.ADOQuery1.Fields[5].AsFloat);
      edit4.Text:=floattostr(dmcygl11.dmcygl.ADOQuery1.Fields[6].AsFloat);
      edit5.Text:=floattostr(dmcygl11.dmcygl.ADOQuery1.Fields[7].AsFloat);
      edit6.Text:=floattostr(dmcygl11.dmcygl.ADOQuery1.Fields[8].AsFloat);
      edit8.Text:=floattostr(dmcygl11.dmcygl.ADOQuery1.Fields[9].AsFloat);


end;

procedure Tcygl.BitBtn1Click(Sender: TObject);
begin
      dmcygl11.dmcygl.ADOQuery2.Append;
      dmcygl11.dmcygl.ADOQuery2.Fields[1].AsInteger:=strtoint(edit1.Text);
      dmcygl11.dmcygl.ADOQuery2.Fields[2].AsDateTime:=strtodate(formatdatetime('yyyy-mm-dd',now));
      dmcygl11.dmcygl.ADOQuery2.Fields[3].AsFloat:=strtofloat(edit8.Text);
      dmcygl11.dmcygl.ADOQuery2.Fields[4].AsFloat:=strtofloat(edit7.Text)-strtofloat(edit8.Text);
       dmcygl11.dmcygl.ADOQuery2.Post;

end;

procedure Tcygl.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
      button2.Click;
end;

end.