qtmain.pas

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

           fkfsform.query3.Post;
           fkfsform.Query3.ApplyUpdates;
           fkfsform.Query3.Close;
         end;
        end;
       fkwj.Close;
       lsq.Edit;
       lsqzfbz.AsBoolean:=true;
       lsq.post;
       lsq.Next;
      end;
      lsq.Filtered:=true;
      edit1.Text:='0';
      edit2.Text:='0';
end;

procedure TqtForm.SpeedButtoniClick(Sender: TObject);
var i:integer;
begin
     checkmax(Sender);
//     maxdjh:=maxdjh+1;
     if lsq.RecordCount>0 then
     begin
        i:=treeview1.Items.Count;
        if (lsqzfbz.AsBoolean) and (lsqfkbz.AsBoolean) then treeview1.Items[i-1].ImageIndex:=3
        else if (lsqzfbz.AsBoolean =false) and (lsqfkbz.AsBoolean) then treeview1.Items[i-1].ImageIndex:=0
        else if (lsqzfbz.AsBoolean) and (lsqfkbz.AsBoolean=false) then treeview1.Items[i-1].ImageIndex:=2
        else treeview1.Items[i-1].ImageIndex:=1;
     end;
     treev:=treeview1.Selected;
     treeview1.Items.Add(treev,inttostr(maxdjh));
     i:=treeview1.Items.Count;
     treeview1.Items[i -1].ImageIndex:=1;
     treeview1.Items[i -1].Selected:=true;
     if lsq.RecordCount>0 then
     begin
        if (lsqzfbz.AsBoolean) and (lsqfkbz.AsBoolean) then treeview1.Items[i-1].ImageIndex:=3
        else if (lsqzfbz.AsBoolean =false) and (lsqfkbz.AsBoolean) then treeview1.Items[i-1].ImageIndex:=0
        else if (lsqzfbz.AsBoolean) and (lsqfkbz.AsBoolean=false) then treeview1.Items[i-1].ImageIndex:=2
        else treeview1.Items[i-1].ImageIndex:=1;
     end;
     hxq:='11';
     edit1.Text:='0';
     edit2.Text:='0';
     if jzbz<>'qt' then edit7.Text:='';
     lsq.Close;
     lsq.Parameters[0].Value:=-1;
     lsq.Parameters[1].Value:=startdate;
     lsq.Parameters[2].Value:=date+time;
     lsq.Open;
end;

procedure TqtForm.SpeedButtoncClick(Sender: TObject);
begin
        lsq.First;
        while not lsq.Eof do
        begin
          lsq.Edit;
          lsqwmbz.AsBoolean:=true;
          lsq.Post;
          lsq.Next;
        end;
end;

procedure TqtForm.SpeedButtonfClick(Sender: TObject);
var hh:Tprinter;
    ii,jj,kk:integer;
begin
    if (lsq.RecordCount<=0) then exit;
      hh:=Tprinter.Create;
      jj:=hh.Printers.Count -1;
      kk:=-1;
      for ii:=0 to jj do
      begin
       if pos('收银', hh.Printers.Strings[ii])>0 then
       begin
        quickrep1.PrinterSettings.PrinterIndex:=ii;
        quickrep1.Preview;
        kk:=ii;
       end;
      end;
    if kk=-1 then
    begin
       prtsetq.Close;
       prtsetq.SQL.Clear;
       prtsetq.SQL.Add('select * from prtset where type='+''''+'S'+''''+' and port like '+''''+'%'+rjsmain.computer_name+'%'+'''');
       prtsetq.Open;
       if prtsetq.RecordCount>0 then
       begin
          while not prtsetq.Eof do
          begin
             if pos(rjsmain.computer_name,prtsetq.fieldbyname('port').AsString)>0 then
             begin
//              if rjsmain.first_prt='true' then initprt(prtsetq.fieldbyname('port').AsString,'');
              pprrtt:='';
              writ(prtsetq.fieldbyname('port').AsString,'');
              kk:=1;
              break;
             end;
             prtsetq.Next;
         end;
         prtsetq.Close;
       end;
    end;
    if kk=-1 then
    begin
       prtsetq.Close;
       prtsetq.SQL.Clear;
       prtsetq.SQL.Add('select * from prtset where type='+''''+'S'+'''');
       prtsetq.Open;
       if prtsetq.RecordCount>0 then
           if messagedlg('由于系统没有设置本地收银打印机'+#13+'您只能在'+prtsetq.fieldbyname('name').AsString+'('+prtsetq.fieldbyname('port').AsString+')上打印！'+#13+'可以吗？！',mtwarning,[mbyes,mbno],0)=mryes then
            updatedcddy('SY',lsqdjh.AsString)
           else messagedlg('没有指定收银打印机！',mtwarning,[mbok],0)
       else messagedlg('没有指定收银打印机！',mtwarning,[mbok],0);
       prtsetq.Close;
    end;
end;

procedure TqtForm.SpeedButtongClick(Sender: TObject);
var ss:real;
begin
     if lsq.RecordCount<=0 then exit;
     fdform:=Tfdform.Create(Self);
     fdform.CheckListBox1.Items.Clear;
     lsq.First;
     ss:=0;
     while not lsq.Eof do
     begin
       if lsqzfbz.AsBoolean=false then
       begin
         fdform.checklistbox1.Items.Add(lsQmc.AsString+'['+floattostr(lsQje.AsFloat)+']');
         ss:=ss+lsqje.AsFloat;
       end;
       lsq.Next;
     end;
     ss:=round(ss*100)/100;
     fdform.edit1.Text:=floattostr(ss);
     fdform.showmodal;
     fdform.Free;
end;

procedure TqtForm.SpeedButtonhClick(Sender: TObject);
var ii:integer;
    wwmm:boolean;
begin
     if (lsq.RecordCount<=0) or (edit1.text='0') then exit;
     hygzform.edit1.text:=floattostr(round(strtofloat(edit1.text)*100)/100);
      if hygzform.showmodal=mrok then
      begin
        lsq.Filtered:=true;
        quickrep1.Preview;
        lsq.Filtered:=false;
        if messagedlg('是堂食还是外卖？'+#13+#13+'Yes__堂食，No__外卖'+#13+#13+'请选择!!',mtinformation,[mbyes,mbno],0)=mryes then wwmm:=false
        else wwmm:=true;
        lsq.First;
        while not lsq.Eof do
        begin
          lsq.Edit;
          lsqwmbz.AsBoolean:=wwmm;
          if lsqzfbz.AsBoolean=false then lsqfkbz.AsBoolean:=true;
          lsq.Post;
          lsq.Next;
        end;
        jzbz:='jz';
        fkwj.Open;
        for ii:=1 to hygzform.StringGrid1.RowCount -1 do
        if hygzform.StringGrid1.Cells[1,ii]<>'' then
        begin
         fkwj.Append;
         fkwjdjh.AsInteger:=lsqdjh.AsInteger;
         fkwjrq.AsDateTime:=date+time;
         fkwjfkfsbm.AsString:=fkfs.fkfsbm[ii];
         fkwjfkfsmc.AsString:=hygzform.StringGrid1.Cells[0,ii];
         fkwjfkje.AsFloat:=strtofloat(hygzform.StringGrid1.Cells[1,ii]);
         fkwjhykbh.AsString:=hygzform.StringGrid1.Cells[2,ii];
         fkwj.Post;
         if (fkfsform.StringGrid1.Cells[2,ii]<>'') and (pass.yhlx='U') then
         begin
           fkfsform.query3.Close;
           fkfsform.query3.ParamByName('cs').AsString:=fkfsform.StringGrid1.Cells[2,ii] ;
           fkfsform.query3.Open;
           fkfsform.query3.Edit;
           fkfsform.Query3ye.AsFloat:=fkfsform.Query3ye.AsFloat - strtofloat(fkfsform.StringGrid1.Cells[1,ii]);
           fkfsform.Query3zjcs.AsInteger:=fkfsform.Query3zjcs.AsInteger + 1;
           fkfsform.Query3zjxfe.AsFloat:=fkfsform.Query3zjxfe.AsFloat + strtofloat(fkfsform.StringGrid1.Cells[1,ii]);
           fkfsform.query3.Post;
           fkfsform.Query3.ApplyUpdates;
           fkfsform.Query3.Close;
         end;
        end;
        fkwj.Close;
        edit1.Text:='0';
        edit2.Text:='0';
      end;
end;

procedure TqtForm.TreeView1Click(Sender: TObject);
var je,se:real;
begin
     if treeview1.Selected<>nil then
     begin
       lsq.Close;
       lsq.Parameters.ParamByName('cs').Value:=strtoint(treeview1.Selected.Text);
       lsq.Parameters.ParamByName('cs1').Value:=startdate;
       lsq.Parameters.ParamByName('cs2').Value:=date+time;
       maxdjh:=strtoint(treeview1.Selected.Text);
       lsq.Open;
       lsq.First;
       edit7.Text:=lsqtwbh.AsString;
       if ADOQuery1.Active then ADOQuery1.Close;
       ADOQuery1.Parameters.ParamByName('cs1').Value:=edit7.Text;
       ADOQuery1.Open;
       if ADOQuery1.RecordCount>0 then
       begin
          edit6.Text:=ADOQuery1ctbh.Value;
          labelededit5.Text:=ADOQuery1ctmc.Value;
          labelededit6.Text:=ADOQuery1twmc.Value;
          labelededit8.Text:=adoquery1zdxf.AsString;
          labelededit7.Text:=adoquery1twrs.AsString;
       end
       else
       begin
          edit6.Text:='';
          labelededit5.Text:='';
          labelededit6.Text:='';
          labelededit7.Text:='';
          labelededit8.Text:='';
       end;
       ADOQuery1.Close;
       je:=0;
       se:=0;
       while not lsq.Eof do
       begin
         if (lsqzfbz.AsBoolean=false) and (lsqfkbz.AsBoolean=false) then
         begin
          je:=je+lsqje.AsFloat;
          se:=se+lsqse.AsFloat;
         end;
         lsq.Next;
       end;
       if hxq='first' then hxq:='11';
       edit1.Text:=floattostr(je);
       edit2.Text:=floattostr(se);
     end;
end;

procedure TqtForm.lsQFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
    accept:=(dataset.FieldByName('zfbz').AsBoolean=false);
end;

procedure TqtForm.SpeedButtonjClick(Sender: TObject);
begin
     tjform:=Ttjform.Create(Self);
     tjform.showmodal;
     tjform.Free;
end;

procedure TqtForm.TimerxTimer(Sender: TObject);
var tt:Ttime;
begin
     edit4.Text:=timetostr(time);
     if checkbox2.Checked then
     begin
        tt:=time-strtotime(edit3.Text);
        label4.Caption:=timetostr(tt);
     end;
end;

procedure TqtForm.SpeedButtoneClick(Sender: TObject);
begin
     close;
end;

procedure TqtForm.FormCreate(Sender: TObject);
var i,j,k:integer;
begin
     qtForm.Left:=0;
     qtForm.Top:=0;
     for i:=0 to 49 do
     begin
       lbtt[i+1]:=Tbitbtn.Create(Self);
       lbtt[i+1].Height:=30;
       lbtt[i+1].Width:=117;
       j:=trunc(i/4);
       lbtt[i+1].Top:=1+(lbtt[i+1].Height+1) * j;
       j:=i mod 4;
       lbtt[i+1].Left:=lbtt[i+1].Width*(j);
       lbtt[i+1].Name:='sp_'+inttostr(i+1);
       lbtt[i+1].Parent:=scrollbox1;
       lbtt[i+1].Caption:='';
       lbtt[i+1].OnClick:=lbttClick;
       lbtt[i+1].Visible:=false;
     for j:=0 to 99 do
     begin
       bbtt[i+1,j+1]:=Tbitbtn.Create(Self);
       bbtt[i+1,j+1].Height:=33;
       bbtt[i+1,j+1].Width:=117;
       k:=trunc(j/4);
       bbtt[i+1,j+1].Top:=1+(bbtt[i+1,j+1].Height+1) * k;
       k:=j mod 4;
       bbtt[i+1,j+1].Left:=bbtt[i+1,j+1].Width*(k);
       bbtt[i+1,j+1].Name:='sp_'+inttostr(i+1)+'_'+inttostr(j+1);
       bbtt[i+1,j+1].Parent:=scrollbox2;
       bbtt[i+1,j+1].Caption:='';
       bbtt[i+1,j+1].OnClick:=Timer1Timer;
       bbtt[i+1,j+1].Visible:=false;
     end;
     end;

end;

procedure TqtForm.SZCClick(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:='' else
     labelededit4.Text:='';
end;

procedure TqtForm.SZ9Click(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:=edit7.Text+'9' else
     labelededit4.Text:=labelededit4.Text+'9';
end;

procedure TqtForm.SZ8Click(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:=edit7.Text+'8' else
     labelededit4.Text:=labelededit4.Text+'8';
end;

procedure TqtForm.SZ7Click(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:=edit7.Text+'7' else
     labelededit4.Text:=labelededit4.Text+'7';
end;

procedure TqtForm.sz6Click(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:=edit7.Text+'6' else
     labelededit4.Text:=labelededit4.Text+'6';
end;

procedure TqtForm.SZ5Click(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:=edit7.Text+'5' else
     labelededit4.Text:=labelededit4.Text+'5';
end;

procedure TqtForm.SZ4Click(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:=edit7.Text+'4' else
     labelededit4.Text:=labelededit4.Text+'4';
end;

procedure TqtForm.SZ3Click(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:=edit7.Text+'3' else
     labelededit4.Text:=labelededit4.Text+'3';
end;

procedure TqtForm.SZ2Click(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:=edit7.Text+'2' else
     labelededit4.Text:=labelededit4.Text+'2';
end;

procedure TqtForm.SZ1Click(Sender: TObject);
begin
     if edit7.Focused then edit7.Text:=edit7.Text+'1' else
     labelededit4.Text:=labelededit4.Text+'1';
end;

procedure TqtForm.SZ0Click(Sender: TObject);