sanwh.pas

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

unit sanwh;

interface

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

type
  TsanwhForm = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    Table2: TTable;
    Panel3: TPanel;
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    DBGrid3: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Table3: TTable;
    DataSource3: TDataSource;
    Query1: TQuery;
    DBGrid4: TDBGrid;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    Table4: TTable;
    DataSource4: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure Table1AfterInsert(DataSet: TDataSet);
    procedure Table1BeforeInsert(DataSet: TDataSet);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sanwhForm: TsanwhForm;

implementation

uses dataproc;

{$R *.DFM}

procedure TsanwhForm.FormCreate(Sender: TObject);
var i:integer;
begin
   Table1.Open;
   Table2.Open;
   Table3.Open;
   Table4.Open;
   DBGrid1.fields[0].displaylabel:='男散号';
   DBGrid1.fields[1].displaylabel:='目前状态';
   DBGrid2.fields[0].displaylabel:='女散号';
   DBGrid2.fields[1].displaylabel:='目前状态';
   DBGrid3.fields[0].displaylabel:='咖啡厅';
   DBGrid3.fields[1].displaylabel:='目前状态';
   DBGrid4.fields[0].displaylabel:='商务中心';
   DBGrid4.fields[1].displaylabel:='目前状态';
{   DBGrid1.fields[9].displaylabel:='登记';
   DBGrid1.fields[10].displaylabel:='结帐';
   DBGrid1.fields[13].displaylabel:='消费';
   DBGrid1.fields[11].displaylabel:='餐厅';
   DBGrid1.fields[12].displaylabel:='查询';
   for i:=0 to 4 do DBGrid1.Columns[i].readonly:=true;
  dbgrid1.Columns[3].width:=76;
  dbgrid1.Columns[4].width:=70;
  dbgrid1.Columns[5].width:=46;
  dbgrid1.Columns[6].width:=50;
  dbgrid1.Columns[7].width:=50;
  dbgrid1.Columns[8].width:=30;  }

end;

procedure TsanwhForm.Table1BeforeInsert(DataSet: TDataSet);
var i:integer;
begin
//   for i:=0 to 4 do DBGrid1.Columns[i].readonly:=false;

end;
procedure TsanwhForm.Table1AfterInsert(DataSet: TDataSet);

begin
//   Table1.Fields[14].asstring:=passzh('1234');

end;

procedure TsanwhForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
     if xt=1 then  help(19);
  end;

end;

procedure TsanwhForm.Button1Click(Sender: TObject);
var i,k:integer;
begin
   if trim(Edit1.text)<>'' then
   begin
      Table1.First;
      k:=1;
      if trim(Table1.Fields[0].asstring)<>'' then
         k:=strtoint(Table1.Fields[0].asstring);
      Query1.Active:=false;
      Query1.SQL.Clear;
      Query1.sql.Add('delete mansan ');
      for i:=k to strtoint(Edit1.text) do
        Query1.sql.Add('insert into mansan VALUES('''+copy('00'+inttostr(i),length(inttostr(i)),3)+''',''0'')');
      Query1.ExecSQL;
      Query1.Active:=false;
      Query1.SQL.Clear;
   end;
   if trim(Edit2.text)<>'' then
   begin
      Table2.First;
      k:=1;
      if trim(Table2.Fields[0].asstring)<>'' then
         k:=strtoint(Table1.Fields[0].asstring);
      Query1.Active:=false;
      Query1.SQL.Clear;
      Query1.sql.Add('delete womansan ');
      for i:=k to strtoint(Edit2.text) do
        Query1.sql.Add('insert into womansan VALUES('''+copy('00'+inttostr(i),length(inttostr(i)),3)+''',''0'')');
      Query1.ExecSQL;
      Query1.Active:=false;
      Query1.SQL.Clear;
   end;
   if trim(Edit3.text)<>'' then
   begin
      Table3.First;
      k:=1;
      if trim(Table1.Fields[0].asstring)<>'' then
         k:=strtoint(copy(Table3.Fields[0].asstring,2,2));
      Query1.Active:=false;
      Query1.SQL.Clear;
      Query1.sql.Add('delete jyl ');
      for i:=k to strtoint(Edit3.text) do
        Query1.sql.Add('INSERT INTO  jyl VALUES ('''+'Y'+copy('0'+inttostr(i),length(inttostr(i)),2)+''',''0'')');
      Query1.ExecSQL;
      Query1.Active:=false;
      Query1.SQL.Clear;
   end;
   if trim(Edit4.text)<>'' then
   begin
      Table4.First;
      k:=1;
      if trim(Table4.Fields[0].asstring)<>'' then
         k:=strtoint(copy(Table1.Fields[0].asstring,2,2));
      Query1.Active:=false;
      Query1.SQL.Clear;
      Query1.sql.Add('delete kft ');
      for i:=k to strtoint(Edit4.text) do
        Query1.sql.Add('INSERT INTO  kft VALUES ('''+'K'+copy('0'+inttostr(i),length(inttostr(i)),2)+''',''0'')');
      Query1.ExecSQL;
      Query1.Active:=false;
      Query1.SQL.Clear;
   end;
   Table1.Active:=false;
   Table2.Active:=false;
   Table3.Active:=false;
   Table4.Active:=false;
   FormCreate(nil);
end;

procedure TsanwhForm.Button2Click(Sender: TObject);
begin
   Table1.Close;
   close;

end;

procedure TsanwhForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    if (Sender as TDBGrid).SelectedIndex<(Sender as TDBGrid).FieldCount-1 then
       (Sender as TDBGrid).SelectedIndex:=(Sender as TDBGrid).SelectedIndex+1 ;
  end;
end;

procedure TsanwhForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key<'0') and (key>'9') then
     if (key<>#13) or (key<>#8) then key:=#0;
end;

end.