khxxunit.pas

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

unit khxxUnit;

interface

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

type
  TkhxxForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Query1: TQuery;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    Label20: TLabel;
    ajc: TEdit;
    Label21: TLabel;
    ayb: TEdit;
    Label22: TLabel;
    aywy: TEdit;
    GroupBox3: TGroupBox;
    Panel3: TPanel;
    Memo2: TMemo;
    PopupMenu1: TPopupMenu;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label15: TLabel;
    Label18: TLabel;
    Label9: TLabel;
    Label17: TLabel;
    Label11: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label19: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    khm: TEdit;
    khjc: TEdit;
    lxr: TEdit;
    lxrzc: TEdit;
    szbm: TEdit;
    khh: TEdit;
    yhzh: TEdit;
    sh: TEdit;
    szcs: TEdit;
    khdz: TEdit;
    tel1: TEdit;
    tel2: TEdit;
    cz: TEdit;
    email: TEdit;
    yb: TEdit;
    ywy: TEdit;
    bz: TEdit;
    khlx: TComboBox;
    GroupBox4: TGroupBox;
    Panel1: TPanel;
    Memo1: TMemo;
    BitBtn5: TBitBtn;
    BitBtn7: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure khmKeyPress(Sender: TObject; var Key: Char);
    procedure khmExit(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure ajcChange(Sender: TObject);
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure bzDblClick(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  khxxForm: TkhxxForm;

implementation

uses zxt, zxt2;

{$R *.DFM}

procedure TkhxxForm.BitBtn2Click(Sender: TObject);
begin
     bitbtn1.Enabled:=false;
     khm.Text:='';khjc.Text:='';khlx.Text:='';lxr.Text:='';lxrzc.Text:='';
     szbm.Text:='';khh.Text:='';yhzh.Text:='';sh.Text:='';szcs.Text:='';
     khdz.Text:='';tel1.Text:='';tel2.Text:='';cz.Text:='';email.Text:='';
     yb.Text:='';ywy.Text:='';bz.Text:='';memo1.Text:='';ajc.Text:='';ayb.Text:='';aywy.Text:='';
end;

procedure TkhxxForm.FormCreate(Sender: TObject);
begin
      groupbox3.Visible:=false;
      groupbox4.Visible:=false;
      bitbtn2click(nil);bitbtn1.Enabled:=false;
      khlx.Items.Add('部门');
      khlx.Items.Add('供货商');
      khlx.Items.Add('销售商');
      khlx.Items.Add('供销商');
end;

procedure TkhxxForm.BitBtn1Click(Sender: TObject);
begin

    query1.Active:=false;
    query1.SQL.Clear;
    query1.SQL.Add('insert into 客户(名称,简称,类别,联系人,部门,业务员,地址,城市,邮政编码,联系人职称,电话号码,分机,传真号码,电子邮件地址,开户行,银行帐号,税号,附注)');
    query1.SQL.Add('values (:mc,:jc,:lb,:lxr,:bm,:ywy,:dz,:city,:post,:lxrzc,:tel1,:tel2,:fax,:email,:khh,:yhzh,:sh,:bz)');
    query1.RequestLive:=false;
    query1.ParamByName('mc').asstring:=khm.Text;
    query1.ParamByName('jc').asstring:=khjc.Text;
    query1.ParamByName('lb').asstring:=khlx.Text;
    query1.ParamByName('lxr').asstring:=lxr.Text;
    query1.ParamByName('bm').asstring:=szbm.Text;
    query1.ParamByName('ywy').asstring:=ywy.Text;
    query1.ParamByName('dz').asstring:=khdz.Text;
    query1.ParamByName('city').asstring:=szcs.Text;
    query1.ParamByName('post').asstring:=yb.Text;
    query1.ParamByName('lxrzc').asstring:=lxrzc.Text;
    query1.ParamByName('tel1').asstring:=tel1.Text;
    query1.ParamByName('tel2').asstring:=tel2.Text;
    query1.ParamByName('fax').asstring:=cz.Text;
    query1.ParamByName('email').asstring:=email.Text;
    query1.ParamByName('khh').asstring:=khh.Text;
    query1.ParamByName('yhzh').asstring:=yhzh.Text;
    query1.ParamByName('sh').asstring:=sh.Text;
    query1.ParamByName('bz').asstring:=memo1.Text;
    query1.Prepare;
    query1.ExecSQL;
    query1.Active:=false;
    bitbtn2click(nil);
end;

procedure TkhxxForm.khmKeyPress(Sender: TObject; var Key: Char);
begin
     
      if ((sender as tedit)=bz) then  key:=#8;
      if ((sender as tedit)=khjc)or((sender as tedit)=ajc)  then
        begin
           if ((key<='9') and (key>='0'))  then key:=#0;
        end;
      if  (key=#13 ) then
        selectnext(activecontrol,true ,true);
end;

procedure TkhxxForm.khmExit(Sender: TObject);
begin
     if (khm.Text<>'')and(khjc.Text<>'') then bitbtn1.Enabled:=true
     else bitbtn1.Enabled:=false;
end;

procedure TkhxxForm.Panel1Click(Sender: TObject);
begin
       groupbox4.Visible:=false;
end;

procedure TkhxxForm.PageControl1Change(Sender: TObject);
begin
      bitbtn2click(nil);
     if (PageControl1.ActivePage=TabSheet2) then
     begin
       query1.Active:=false;
       query1.SQL.Clear;
       query1.SQL.Add('select * from 客户 order by 客户ID');
        query1.RequestLive:=true;
       query1.Prepare;
       query1.Open;

       memo2.text:=query1.Fields[18].Asstring;
     end;  
end;

procedure TkhxxForm.ajcChange(Sender: TObject);
 var tj:string;
begin
    tj:='';
    if  ajc.Text<>'' then
    begin
      if tj ='' then tj:=' where 简称>='''+trim(ajc.Text)+''' and 简称<='''+trim(ajc.text)+chr(255)+''''
      else tj:=tj+' and 简称>='''+trim(ajc.Text)+''' and 简称<='''+trim(ajc.text)+chr(255)+'''';
    end;
    if ayb.Text<>'' then
    begin
      if tj='' then  tj:=' where 邮政编码>='''+trim(ayb.text)+''' and 邮政编码<='''+trim(ayb.text)+chr(255)+''''
      else tj:=tj+' and 邮政编码>='''+trim(ayb.text)+''' and 邮政编码<='''+trim(ayb.text)+chr(255)+'''';
    end;
    if aywy.Text<>'' then
    begin
      if tj='' then tj:=' where 业务员>='''+trim(aywy.text)+''' and 业务员<='''+trim(aywy.text)+chr(255)+''''
      else tj:=tj+' and 业务员>='''+trim(aywy.text)+''' and 业务员<='''+trim(aywy.text)+chr(255)+'''';
    end;
    query1.Active:=false;
    query1.SQL.Clear;
    query1.SQL.Add('select * from 客户 '+tj+' order by 客户ID');
    query1.RequestLive:=true;
    query1.Prepare;
    query1.Open;
end;

procedure TkhxxForm.Query1AfterOpen(DataSet: TDataSet);
begin
     if (PageControl1.ActivePage=TabSheet2) then
     begin
       query1.Fields[0].DisplayWidth:=2;
       query1.Fields[1].DisplayWidth:=10;
       query1.Fields[2].DisplayWidth:=6;
       query1.Fields[3].DisplayWidth:= 8;
       query1.Fields[4].DisplayWidth:=8;
       query1.Fields[5].DisplayWidth:=8;
       query1.Fields[6].DisplayWidth:=12;
       query1.Fields[7].DisplayWidth:=12;
       query1.Fields[8].DisplayWidth:=6;
       query1.Fields[9].DisplayWidth:=8;
       query1.Fields[10].DisplayWidth:=8;
       query1.Fields[11].DisplayWidth:=8;
       query1.Fields[12].DisplayWidth:=8;
       query1.Fields[13].DisplayWidth:=8;
       query1.Fields[14].DisplayWidth:=8;
       query1.Fields[15].DisplayWidth:=8;
       query1.Fields[16].DisplayWidth:=8;
       query1.Fields[17].DisplayWidth:=8;
       query1.Fields[18].DisplayWidth:=8;
 end;
 end;
procedure TkhxxForm.DBGrid1DblClick(Sender: TObject);
begin
     if dbgrid1.SelectedIndex=18 then
       groupbox3.Visible:=true;
     memo2.text:=query1.Fields[18].asstring;
end;

procedure TkhxxForm.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
      if dbgrid1.SelectedIndex=18 then
     begin
       khxxForm.ShowHint:=true;
       khxxForm.Hint:='双击查看详情';
     end
     else  khxxForm.ShowHint:=false;
end;

procedure TkhxxForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZForm.w3.Enabled:=true;
//   zform.ToolBar3.Buttons[but-1].Indeterminate:=false;
  { zform1.Show;
   but:=0;

   zform.Panel1.Visible:=false; }

//   Action:=cafree;
 {  zform1.Show;
   but:=0;
//   ZForm.J1.Enabled:=true;
   zform.Panel1.Visible:=false;}
   //Action:=cafree;

  end;

procedure TkhxxForm.BitBtn5Click(Sender: TObject);
begin
     if messagedlg('确信删除这条记录吗!!',mtwarning,[mbok,mbcancel],0)=mrok then
      if  trim(query1.FieldByName('客户ID').asstring)<>'' then
      begin
        query1.delete;
     end;
end;

procedure TkhxxForm.BitBtn7Click(Sender: TObject);
begin
    close;
end;

procedure TkhxxForm.bzDblClick(Sender: TObject);
begin
     groupbox4.Visible:=true;
end;

procedure TkhxxForm.Panel3Click(Sender: TObject);
begin
      groupbox3.Visible:=false;
end;

procedure TkhxxForm.BitBtn3Click(Sender: TObject);
begin
     close;
end;

end.