frmgroupcostform.pas

欢迎使用我的原代码 谢谢合作

unit frmGroupCostForm;

interface

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

type
  TGroupCostForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    Table1: TTable;
    Panel3: TPanel;
    Panel4: TPanel;
    btnClose: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    btnTeamCost: TButton;
    btnRoomCost: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure btnCloseClick(Sender: TObject);
    procedure btnRoomCostClick(Sender: TObject);
    procedure btnTeamCostClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GroupCostForm: TGroupCostForm;

implementation

uses frmRoomEndForm, frmMain, frmGroupEndForm;

{$R *.dfm}

procedure TGroupCostForm.btnCloseClick(Sender: TObject);
begin
        close;
end;

procedure TGroupCostForm.btnRoomCostClick(Sender: TObject);
begin
    RoomEndForm := TRoomEndForm.create(self);
    RoomEndForm.DinnerQuickRep.Preview;
    RoomEndForm.show;
    MainForm.tmp := edit1.Text;
end;

procedure TGroupCostForm.btnTeamCostClick(Sender: TObject);
begin
    GroupEndForm := TGroupEndForm.create(self);
    GroupEndForm.DinnerQuickRep.Preview;
    GroupEndForm.show;
    MainForm.tmp := edit2.Text;
end;

end.