ctcdcx.pas

集成酒店桑拿食管管理的完整程序

unit ctcdcx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, ComCtrls, ExtCtrls;

type
  TcdcxForm = class(TForm)
    TabControl1: TTabControl;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cdcxForm: TcdcxForm;

implementation

uses dataproc;

{$R *.DFM}

procedure cdinit(d:integer;db:string);
begin
with cdcxForm do
  begin
     Query1.Active :=false;
     Query1.sql.clear;
     Query1.SQL.Add('select cusitem.cusname,CusPrice,CusNum,Money,Isuse,isxj,ismd,Regtime,fwy,Djcode from custom,cusitem where cusitem.Cuscode=custom.Cuscode and tabno='''+trim(TabControl1.Tabs[d])+''' order by '+db);
     Query1.Open;
     DataSource1.DataSet:=Query1;
     chinesegrid(dbgrid1);
     DBGrid1.fields[0].displaylabel:='  菜  名  称';
     DBGrid1.fields[1].displaylabel:='价格';
     DBGrid1.fields[2].displaylabel:='数量';
     DBGrid1.fields[3].displaylabel:='金额';
     DBGrid1.fields[4].displaylabel:='上菜否';
     DBGrid1.fields[8].displaylabel:='服务员';
//     dbgrid1.Columns[0].width:=60;
     dbgrid1.Columns[1].width:=30;
     dbgrid1.Columns[2].width:=30;
     dbgrid1.Columns[3].width:=30;
//     dbgrid1.Columns[4].width:=30;
  end;
end;




procedure TcdcxForm.FormCreate(Sender: TObject);
begin
//  table1.Open;
//  chinesegrid(dbgrid1);
  Query1.Active :=false;
  Query1.sql.clear;
  Query1.SQL.Add('select tabno from ctnowin');
  Query1.Open;
  TabControl1.Tabs.Clear;
  while not Query1.Eof do
  begin
    TabControl1.Tabs.Add(Query1.Fields[0].asstring);
    Query1.Next;
  end;
  if TabControl1.TabIndex>=0 then
    cdinit(0,'custom.Cuscode');

end;

procedure TcdcxForm.TabControl1Change(Sender: TObject);
begin
  cdinit(TabControl1.TabIndex,'custom.Cuscode');

end;

procedure TcdcxForm.Timer1Timer(Sender: TObject);
var h:integer;
begin
  h:=TabControl1.TabIndex;
  Query1.Active :=false;
  Query1.sql.clear;
  Query1.SQL.Add('select tabno from ctnowin');
  Query1.Open;
  TabControl1.Tabs.Clear;
  while not Query1.Eof do
  begin
    TabControl1.Tabs.Add(Query1.Fields[0].asstring);
    Query1.Next;
  end;
  TabControl1.TabIndex:=h;
  cdinit(h,'custom.Cuscode');

end;

procedure TcdcxForm.DBGrid1TitleClick(Column: TColumn);
begin
   if Column.DisplayName='cusname' then cdinit(TabControl1.TabIndex,'custom.Cuscode')
   else
    cdinit(TabControl1.TabIndex,'custom.'+Column.DisplayName);

end;

end.