jzmxcx.pas

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

unit jzmxcx;

interface

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

type
  Tjzmxcxform = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    jztime: TMaskEdit;
    jzbut: TButton;
    PageControl1: TPageControl;
    ctjzmx: TQuery;
    DataSource: TDataSource;
    zh: TLabel;
    GroupBox2: TGroupBox;
    Label20: TLabel;
    Label21: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label16: TLabel;
    jm: TMaskEdit;
    zkhj: TEdit;
    ms: TMaskEdit;
    zke: TEdit;
    zk: TSpinEdit;
    bjf: TMaskEdit;
    cf: TMaskEdit;
    fwf: TMaskEdit;
    hj: TMaskEdit;
    yf: TMaskEdit;
    TabSheet1: TTabSheet;
    DBGrid2: TDBGrid;
    Edit1: TEdit;
    GroupBox6: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    czy: TLabel;
    Label30: TLabel;
    dw: TLabel;
    Label11: TLabel;
    jzfsname: TComboBox;
    jzdh: TEdit;
    gzno: TEdit;
    qdr: TEdit;
    xydw: TEdit;
    jzfs: TComboBox;
    Panel1: TPanel;
    mfw: TCheckBox;
    mcf: TCheckBox;
    mbj: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure jzbutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jzmxcxform: Tjzmxcxform;

implementation
uses dataproc,jzxfmxunit;

{$R *.DFM}

var
  acc:string;
procedure formini;
begin
  with ctjzcxform do
  begin
   ctjzmx.Active:=false;
   ctjzmx.SQL.Clear;
   ctjzmx.SQL.Add('select * from ctjz where accno='''+trim(acc)+'''');
   ctjzmx.Prepare;
   ctjzmx.Open;
   bjf.Text:=ctjzmx.Fieldbyname('bjf').asstring;
   cf.Text:=ctjzmx.Fieldbyname('cf').asstring;
   bjf.Text:=ctjzmx.Fieldbyname('bjf').asstring;
   fwf.Text:=ctjzmx.Fieldbyname('fwf').asstring;
   hj.Text:=ctjzmx.Fieldbyname('hj').asstring;
   jm.Text:=ctjzmx.Fieldbyname('jm').asstring;
   yf.Text:=ctjzmx.Fieldbyname('yf').asstring;
   ms.Text:=ctjzmx.Fieldbyname('ms').asstring;
   zk.Text:=ctjzmx.Fieldbyname('zkl').asstring;
   zke.Text:=ctjzmx.Fieldbyname('zke').asstring;
   jzfs.Text:=ctjzmx.Fieldbyname('jzfs').asstring;
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
   fm.Query2.SQL.Add('select name from mode where code='''+trim(jzfs.Text)+'''');
   fm.Query2.Prepare;
   fm.Query2.Open;
   jzfsname.Text:=fm.Query2.Fields[0].AsString;
   if  ctjzmx.Fieldbyname('mcf').asboolean then
   mcf.Checked:=true else  mcf.Checked:=false;
   if  ctjzmx.Fieldbyname('mfwf').asboolean then
   mfw.Checked:=true else  mfw.Checked:=false;
   if  ctjzmx.Fieldbyname('mbjf').asboolean then
   mbj.Checked:=true else  mbj.Checked:=false;
   jzdh.Text:=ctjzmx.Fieldbyname('code').asstring;
   czy.Caption:=ctjzmx.Fieldbyname('czy').asstring;
   jztime.Text:=ctjzmx.Fieldbyname('endtime').asstring;
   jztime.Text:=ctjzmx.Fieldbyname('jzfs').asstring;
  // jzfs.ItemIndex:=ctjzmx.Fieldbyname('jzfs').asstring;
  // jzfsname.Text:='记帐';//jzfsname.Items[jzfs.ItemIndex];
   ctjzmx.Active:=false;
   ctjzmx.SQL.Clear;
   ctjzmx.SQL.Add('select * from qblscustom where accno='''+trim(acc)+'''');
   ctjzmx.Prepare;
   ctjzmx.Open;
   Tbooleanfield(ctjzmx.Fieldbyname('ismd')).displayvalues:='是;否';
   Tbooleanfield(ctjzmx.Fieldbyname('isuse')).displayvalues:='是;否';
   Tbooleanfield(ctjzmx.Fieldbyname('iszk')).displayvalues:='是;否';
   Tbooleanfield(ctjzmx.Fieldbyname('isxj')).displayvalues:='是;否';
  end;
end;
procedure Tjzmxcxform.FormCreate(Sender: TObject);
begin
    shortdateformat:='yyyy-mm-dd';
    ctjzmx.Active :=false;
    ctjzmx.sql.Clear ;
    ctjzmx.sql.add('select * from mode');
    ctjzmx.Prepare;
    ctjzmx.open;
    jzfsname.Items.Clear;
    jzfs.Items.Clear;
    while not ctjzmx.Eof do
    begin
      jzfs.Items.Add(ctjzmx.FieldByName('Code').asstring);
      jzfsname.Items.Add(ctjzmx.FieldByName('name').asstring);
      ctjzmx.Next;
    end;
   acc:=jzxfmxForm.query1.fieldbyname('accno').asstring;
   gzno.Text:=jzxfmxForm.query1.fieldbyname('gzno').asstring;
   fm.Query4.Active:=false;
   fm.Query4.SQL.Clear;
   fm.Query4.SQL.Add('select dwname from zhdb where zhanghao='''+trim(gzno.Text)+'''');
   fm.Query4.Prepare;
   fm.Query4.Open;
   xydw.Text:=fm.Query4.fieldbyname('dwname').asstring;
   fm.Query5.Active:=false;
   fm.Query5.SQL.Clear;
   fm.Query5.SQL.Add('select * from lsctnowin where accno='''+trim(acc)+'''');
   fm.Query5.Prepare;
   fm.Query5.Open;
   edit1.Text:= fm.Query5.Fieldbyname('tabno').asstring;
   jztime.Text:= fm.Query5.Fieldbyname('endtime').asstring;
   formini;
end;

procedure Tjzmxcxform.jzbutClick(Sender: TObject);
begin
   close;
end;

end.