frmreturn.pas

来自「医院门诊管理系统:它是由任天华完全自主开发的医院数据库管理系统」· PAS 代码 · 共 128 行

unit FrmReturn;

interface

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

type
  TFormReturn = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBGrid2: TDBGrid;
    Button7: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Button9: TButton;
    Button8: TButton;
    datetimepicker1: TDateTimePicker;
    Button10: TButton;
    procedure DBGrid2DblClick(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button9MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure DateTimePicker1Exit(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormReturn: TFormReturn;
  l,g,sum,o:extended;
  r:Tbookmark;
  u,v,w,f:integer;
implementation
   uses FrmRMoney;
{$R *.dfm}

procedure TFormReturn.DBGrid2DblClick(Sender: TObject);
begin
   FormReturn.Button5.Click;
end;

procedure TFormReturn.Button7Click(Sender: TObject);
var
  Max,i:integer;
begin

   FormRmoney.ShowModal;
   FormReturn.Button8.Click;
end;

procedure TFormReturn.Button9Click(Sender: TObject);
var
  Max,i:integer;
  l:extended;
begin

end;

procedure TFormReturn.Button9MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    //每次减少时询问是否要减少
    if Application.MessageBox('确定要减少么','提示',MB_YESNO)=ID_Yes then
       FormReturn.Button9.Click;
end;

procedure TFormReturn.FormShow(Sender: TObject);
begin
   FormReturn.datetimepicker1.DateTime:=now();
end;

procedure TFormReturn.DateTimePicker1Exit(Sender: TObject);
var
  Max,i:integer;
  Item,a,b:string;
begin
   //当选择下拉菜单回复时筛选信息
   a:=datetostr(FormReturn.DateTimePicker1.DateTime+1)+'  '+'00:00:00';
   b:=datetostr(FormReturn.DateTimePicker1.DateTime)+'  '+'00:00:00';

   FormReturn.ComboBox1.Text:='';
   FormReturn.ComboBox1.Clear;


end;

procedure TFormReturn.Button8Click(Sender: TObject);
var
   Max,i:integer;
begin

end;

procedure TFormReturn.Button10Click(Sender: TObject);
var
  Max,i:integer;
  Item,a,b:string;
begin
   //筛选当天信息
   a:=datetostr(FormReturn.DateTimePicker1.DateTime+1)+'  '+'00:00:00';
   b:=datetostr(FormReturn.DateTimePicker1.DateTime)+'  '+'00:00:00';

   FormReturn.ComboBox1.Text:='';
   FormReturn.ComboBox1.Clear;
   
   v:=0;//初始化标志符
end;

end.