frmgetsure.pas

医院门诊管理系统:它是由任天华完全自主开发的医院数据库管理系统

unit FrmGetsure;

interface

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

type
  TFormGetsure = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Editget: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    EditTime: TEdit;
    Label7: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure EditTimeClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure EditgetKeyPress(Sender: TObject; var Key: Char);
    procedure EditgetExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormGetsure: TFormGetsure;

implementation
  uses FrmCharge,frmmain;

{$R *.dfm}

procedure TFormGetsure.FormShow(Sender: TObject);
var
  Max,i:integer;
  Sum:extended;
begin
  //把药物的价格进行求总


end;

procedure TFormGetsure.EditTimeClick(Sender: TObject);
begin
   FormGetsure.EditTime.Text:=FormatDateTime('yyyy-mm-dd',now())+'  '+FormatDateTime('hh:mm:ss',now());
end;

procedure TFormGetsure.Button1Click(Sender: TObject);
begin
   if (FormGetsure.Editget.Text='')or(FormGetsure.EditTime.Text='')or
      (FormGetsure.ComboBox1.Text='') then
      Application.MessageBox('不能为空','提示',MB_OK)
   else
   begin

      Application.MessageBox('收费成功','提示',MB_OK);
   end;
   Formcharge.Button4.Click;
end;

procedure TFormGetsure.Button2Click(Sender: TObject);
begin
   FormGetsure.Close;
end;

procedure TFormGetsure.EditgetKeyPress(Sender: TObject; var Key: Char);
var
  AStr:String;
begin
  //限制只能输入数字和小数点
  AStr:=Editget.Text;
  case key of
    '0'..'9':
      begin
        Key:=Key;
      end;
    '.':
        if pos('.',AStr)<>0 then
          Key:=#0
        else
          Key:=Key;
  else
    Key:=#0;
  end;
end;
procedure TFormGetsure.EditgetExit(Sender: TObject);
var
    i,g:Extended;
begin
   //把输入的家格减去总价，并输出的到的价格
   i:=strtofloat(FormGetsure.Label2.Caption);
   g:=strtofloat(FormGetsure.Editget.Text);
   FormGetsure.Label5.Caption:=floattostr(g-i);
end;

end.