ctcbhs.pas

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

unit ctcbhs;

interface

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

type
  TctcbhsForm = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    grid: TStringGrid;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    xfname: TTabControl;
    DBGrid1: TDBGrid;
    xfcode: TComboBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure xfnameChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ctcbhsForm: TctcbhsForm;

implementation
uses dataproc;
{$R *.DFM}


procedure TctcbhsForm.xfnameChange(Sender: TObject);
var i:integer;
begin
   Query1.Active:=false;
   Query1.sql.Clear;
   Query1.sql.Add('select * from cusitem where custype='''+xfcode.Items[xfname.TabIndex]+''' ');
   Query1.Open;
   Query1.Fields[0].Visible:=false;
   Query1.Fields[2].Visible:=false;
   Query1.Fields[3].Visible:=false;
   Query1.Fields[4].Visible:=false;
   DataSource1.DataSet:=Query1;
//   ChineseGrid(dbgrid1);
   for i:=1 to 13 do
      dbgrid1.Fields[i].DisplayWidth:=6;
   dbgrid1.Fields[3].DisplayWidth:=8;
   dbgrid1.Fields[0].DisplayLabel:='  名称';
   dbgrid1.Fields[1].DisplayLabel:='  单价';
   dbgrid1.Fields[2].DisplayLabel:='  单位';
   dbgrid1.Fields[3].DisplayLabel:='成本单价';
   for i:=1 to 5 do
   begin
     dbgrid1.Fields[4+(2*(i-1))].DisplayLabel:='用料'+inttostr(i);
     dbgrid1.Fields[3+(2*i)].DisplayLabel:='用量'+inttostr(i);
   end;
end;

procedure TctcbhsForm.FormShow(Sender: TObject);
begin
   DataSource1.DataSet:=nil;
   Query1.Active:=false;
   Query1.sql.Clear;
   Query1.sql.Add('select * from custype');
   xfname.Tabs.Clear;
   xfcode.Items.Clear;
   Query1.Open;
   while not Query1.Eof do
   begin
     xfname.Tabs.Add(Query1.Fields[1].AsString);
     xfcode.Items.Add(Query1.Fields[0].AsString);
     Query1.Next;
   end;
   Query1.Active:=false;
   Query1.sql.Clear;
   xfname.TabIndex:=1;
   xfnameChange(nil);
end;

end.