u_bill.pas

来自「以多个信息系统为例」· PAS 代码 · 共 75 行

unit u_bill;

interface

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

type
  TF_bill = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    i_room3: TEdit;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBText1: TDBText;
    Label3: TLabel;
    i_room2: TEdit;
    Label4: TLabel;
    DBText2: TDBText;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Label5: TLabel;
    Label6: TLabel;
    B_calculate: TButton;
    B_print: TButton;
    procedure i_room3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure i_room2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure B_calculateClick(Sender: TObject);
    procedure B_printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_bill: TF_bill;

implementation

uses u_data, u_report;
{$R *.DFM}

procedure TF_bill.i_room3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    DM_main.SetCostList3(i_room3.Text);
end;

procedure TF_bill.i_room2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    DM_main.SetBill(i_room2.Text);
end;

procedure TF_bill.B_calculateClick(Sender: TObject);
begin
  DM_main.CalBill;
end;

procedure TF_bill.B_printClick(Sender: TObject);
begin
  F_report.QuickRep1.Preview;
end;

end.