calculate1.~pas

是用于:毕业设计使用! 首先运行数据库还原目录中的PROJECT,将数据库还原 如果还原失败,则进行手动还原,数据库名:data 本次毕业设计任务是通过开发一个数据库校医院门诊收费管理系统

unit calculate1;

interface

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

type
  Tcalculate = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Panel1: TPanel;
    Bevel1: TBevel;
    b_1: TButton;
    b_4: TButton;
    b_7: TButton;
    b_0: TButton;
    b_p: TButton;
    b_8: TButton;
    b_5: TButton;
    b_2: TButton;
    b_resume: TButton;
    b_9: TButton;
    b_6: TButton;
    b_3: TButton;
    b_div: TButton;
    b_mul: TButton;
    b_sub: TButton;
    b_add: TButton;
    b_equal: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  calculate: Tcalculate;

implementation

{$R *.dfm}

end.