xfwh.pas

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

       begin
         key:=45;
         shift:=[];
       end
       else
         DBGrid1.SelectedIndex:=1;
     end;
   end;

   if (key=40) and (BitBtn3.Enabled) then
   begin
     key:=0;
     table1.Next;
     if table1.Eof then
     begin
       key:=45;
       shift:=[];
     end;
   end;

   if (key=45) and (shift=[]) and (BitBtn1.Enabled)  then
   begin
     key:=0;
     table1.append;
     table1.Post;
     TreeView2Click(nil);
     table1.Last;
     DBGrid1.SelectedIndex:=1;
   end;

   if (key>=47) and (DBGrid1.SelectedIndex=5) and (trim(DBGrid1.Fields[5].AsString)='')  then
   begin
     Panel5.Visible:=true;
     Label22.Caption :='商品简称';
     if trim(DBGrid1.Fields[2].AsString)<>'' then
      jc.Text:=DBGrid1.Fields[2].AsString else jc.Text:=chr(key);
     ActiveControl:=jc;
     jc.SelStart:=1;
     jcKeyUp(jc,key,shift)
   end;

end;

procedure TxfwhForm.BitBtn5Click(Sender: TObject);
begin
    close;
end;

procedure TxfwhForm.BitBtn1Click(Sender: TObject);
var key:word;
begin
   key:=45;
   DBGrid1KeyDown(nil,key,[]);
end;

procedure TxfwhForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if dbgrid1.SelectedIndex=0 then key:=#0;
end;

procedure TxfwhForm.N1Click(Sender: TObject);
var lb,mc:string;
begin
  Application.CreateForm(TsrdlForm, srdlForm);
  srdlForm.showmodal;
  mc:=trim(srdlForm.mc.Text);
  srdlForm.Free;
  if mc='' then exit;
  //lb:=xdh('CusType where (parentcode=''0'' or parentcode=''00'')','','CusType',2);
  lb:=xdh('CusType where (parentcode=''0'' )','','CusType',2);
  Query1.Active:=false;
  Query1.SQL.Clear;
  Query1.SQL.Add('insert into CusType values('''+lb+''','''+mc+''',''0'')');
  Query1.ExecSQL;
  Query1.Active:=false;
  Query1.SQL.Clear;
  treeview1.Selected:=treeview1.Items.Add(treeview1.items.getfirstnode,trim(lb));
  treeview2.Selected:=treeview2.Items.Add(treeview2.items.getfirstnode,trim(mc));

end;

procedure TxfwhForm.N2Click(Sender: TObject);
var lb,mc:string;
begin
  if length(trim(treeview1.Items[treeview2.Selected.AbsoluteIndex].Text))>2 then
  begin
    treeview2.Selected:=treeview2.Selected.Parent;
  end;
  Application.CreateForm(TsrlbForm, srlbForm);
  srlbForm.lbh.Text:=trim(treeview1.Items[treeview2.Selected.AbsoluteIndex].Text);
  srlbForm.lmc.Text:=trim(treeview2.Items[treeview2.Selected.AbsoluteIndex].Text);
  lb:=trim(srlbForm.lbh.Text)+xdh('CusType where parentcode='''+srlbForm.lbh.Text+'''','','CusType',2);
  srlbForm.showmodal;
  mc:=trim(srlbForm.mc.Text);
  srlbForm.Free;
  if mc='' then exit;
  Query1.Active:=false;
  Query1.SQL.Clear;
  Query1.SQL.Add('insert into CusType values('''+lb+''','''+mc+''','''+copy(trim(treeview1.Items[treeview2.Selected.AbsoluteIndex].Text),1,2)+''')');
  Query1.ExecSQL;
  Query1.Active:=false;
  Query1.SQL.Clear;
  treeview2.Selected:=treeview2.Items.AddChild(treeview2.selected,trim(mc));
  tree1;
end;

procedure TxfwhForm.N3Click(Sender: TObject);
begin
  if Application.MessageBox(pchar('确实要删除此类别吗？'), '提示信息', 65)<>IDOK then exit;
  if (length(trim(treeview1.Items[treeview2.Selected.AbsoluteIndex].Text))<=2) then
  begin
   if (treeview2.Items.Count>treeview2.Selected.AbsoluteIndex+1)
    and (length(trim(treeview1.Items[treeview2.Selected.AbsoluteIndex+1].Text))>2) then
   begin
     Application.MessageBox(pchar('此类别有子类别，请先删除子类别！'), '提示信息', 64);
     exit;
   end;
  end
  else
  begin
    Query1.Active:=false;
    Query1.SQL.Clear;
    Query1.SQL.Add('select * from CusItem where CusType='''+trim(treeview1.Items[treeview2.Selected.AbsoluteIndex].Text)+'''');
    Query1.Open;
    if Query1.RecordCount>0 then
    begin
      Application.MessageBox(pchar('此类别下有明细，请先删除明细！'), '提示信息', 64);
      Query1.Active:=false;
      Query1.SQL.Clear;
      exit;
    end;
  end;
  Query1.Active:=false;
  Query1.SQL.Clear;
  Query1.SQL.Add('delete from CusType where CusType='''+trim(treeview1.Items[treeview2.Selected.AbsoluteIndex].Text)+'''');
  Query1.ExecSQL;
  Query1.Active:=false;
  Query1.SQL.Clear;
  treeview2.Items[treeview2.Selected.AbsoluteIndex].Delete;
  tree1;
end;

procedure TxfwhForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    query1.Active:=false;
    query1.SQL.Clear;
    query1.SQL.Add('delete from CusItem where CusCode=''''');
    query1.ExecSQL;
    query1.Active:=false;
    query1.SQL.Clear;
end;

procedure TxfwhForm.DBGrid1DblClick(Sender: TObject);
begin
  if (dbgrid1.SelectedIndex>=6) and (dbgrid1.SelectedIndex<>8) then
  begin
    table1.Edit;
    dbgrid1.Fields[dbgrid1.SelectedIndex].AsBoolean:=not dbgrid1.Fields[dbgrid1.SelectedIndex].AsBoolean;
    table1.Post;
  end;
end;

procedure TxfwhForm.jcExit(Sender: TObject);
begin
  if Panel5.Visible then
    dbgrid2.SetFocus;
end;

procedure TxfwhForm.jcKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
begin
  if (key>=49) and (key<58) AND (shift=[ssCtrl]) then
  begin
    fm.Query3.First;
    for i:=1 to strtoint(CHR(key))-1 do fm.Query3.Next;
    DBGrid2DblClick(NIL);
  end;
  if (key>32) and (key<=40) then dbgrid2.SetFocus;

end;

procedure TxfwhForm.jcKeyPress(Sender: TObject; var Key: Char);
begin
  key:=upcase(key);
  if key=#13 then
  begin
    if trim(jc.text)<>'' then
      DBGrid1DblClick(NIL);
//    key:=#27;
  end;
  if key=#27 then
  begin
    fm.Query3.Active:=false;
    fm.Query3.SQL.Clear;
    Panel5.Visible:=false;
  end;

end;

procedure TxfwhForm.jcKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var tj:string;
begin
     tj:=' (商品编号>='''+trim(jc.Text)+''' and  商品编号<'''+trim(jc.Text)+chr(255)+''') OR (商品简称>='''+trim(jc.Text)+''' and 商品简称<'''+trim(jc.Text)+chr(255)+''')' ;
     fm.Query3.Active:=false;
     fm.Query3.SQL.Clear;
     fm.Query3.SQL.Add(' select * from 商品表 where '+tj);
     fm.Query3.Prepare;
     fm.Query3.Open;
end;

procedure TxfwhForm.DBGrid2DblClick(Sender: TObject);
var  tj,p:string; i:integer;  key:word;
begin
  table1.Edit;
  table1.FieldByName('spcode').asstring:=fm.Query3.fieldbyname('商品编号').asstring;
  table1.Post;
  fm.Query3.Active:=false;
  fm.Query3.SQL.Clear;
  Panel5.Visible:=false;
end;

procedure TxfwhForm.DBGrid2Exit(Sender: TObject);
begin
  if Panel5.Visible then
    jc.SetFocus;
end;

procedure TxfwhForm.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    DBGrid2DblClick(nil);
  if key=#27 then
    jcKeyPress(nil,key);

end;

procedure TxfwhForm.N4Click(Sender: TObject);
var mc:string;
begin
  Application.CreateForm(TsrdlForm, srdlForm);
  srdlForm.Caption:='请输入类别名称';
  srdlForm.showmodal;
  mc:=trim(srdlForm.mc.Text);
  srdlForm.Free;
  if mc='' then exit;
  Query1.Active:=false;
  Query1.SQL.Clear;
  Query1.SQL.Add('update CusType set CusName='''+mc+''' where CusType='''+trim(treeview1.Items[treeview2.Selected.AbsoluteIndex].Text)+'''');
  Query1.ExecSQL;
  Query1.Active:=false;
  Query1.SQL.Clear;
  treeview2.Items[treeview2.Selected.AbsoluteIndex].Text:=mc;
end;

end.