qtkdsz.pas

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

unit qtkdsz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ImgList, jpeg, ExtCtrls, DB, DBTables,
  Grids, DBGrids, ADODB, Buttons;

type
  TqtkdForm = class(TForm)
    TreeView1: TTreeView;
    Label1: TLabel;
    Label2: TLabel;
    ImageList1: TImageList;
    Bevel1: TBevel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Image4: TImage;
    Label7: TLabel;
    Image5: TImage;
    Query2: TQuery;
    DataSource1: TDataSource;
    Query3: TQuery;
    Query2id: TIntegerField;
    Query2ctbh: TStringField;
    Query2ctmc: TStringField;
    Query1: TADOQuery;
    DataSource2: TDataSource;
    ScrollBox1: TScrollBox;
    Query1id: TAutoIncField;
    Query1ctbh: TStringField;
    Query1ctmc: TStringField;
    Query1twbh: TStringField;
    Query1twmc: TStringField;
    Query1twrs: TIntegerField;
    Query1twfwf: TBCDField;
    Query1twcwf: TBCDField;
    Query1twzt: TStringField;
    Query1djh: TIntegerField;
    Query1kssj: TDateTimeField;
    Query1xfje: TBCDField;
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    dcdQ: TADOQuery;
    ADOQuery1: TADOQuery;
    ADOQuery1id: TAutoIncField;
    ADOQuery1ctbh: TStringField;
    ADOQuery1ctmc: TStringField;
    ADOQuery1twbh: TStringField;
    ADOQuery1twmc: TStringField;
    ADOQuery1twrs: TIntegerField;
    ADOQuery1twfwf: TBCDField;
    ADOQuery1twcwf: TBCDField;
    ADOQuery1twzt: TStringField;
    ADOQuery1djh: TIntegerField;
    ADOQuery1kssj: TDateTimeField;
    ADOQuery1xfje: TBCDField;
    Query1czbz: TBooleanField;
    ctydQ: TADOQuery;
    Timer1: TTimer;
    ctydQID: TAutoIncField;
    ctydQrq: TDateTimeField;
    ctydQct: TStringField;
    ctydQth: TStringField;
    ctydQqssj: TDateTimeField;
    ctydQzzsj: TDateTimeField;
    ctydQrs: TIntegerField;
    ctydQyq: TStringField;
    ctydQjbr: TStringField;
    ctydQydr: TStringField;
    ctydQydsj: TDateTimeField;
    ctydQlxfs: TStringField;
    ctydQbz: TStringField;
    ctydQzxbz: TBooleanField;
    ctydQctmc: TStringField;
    ctydQtwmc: TStringField;
    Bevel2: TBevel;
    Label8: TLabel;
    ScrollBox2: TScrollBox;
    ADOQuery1czbz: TBooleanField;
    sumdcdQ: TADOQuery;
    sumdcdQjje: TBCDField;
    sumdcdQminrq: TDateTimeField;
    dcdQID: TAutoIncField;
    dcdQdjh: TIntegerField;
    dcdQth: TStringField;
    dcdQyhh: TStringField;
    dcdQbc: TStringField;
    dcdQtwbh: TStringField;
    dcdQrq: TDateTimeField;
    dcdQlb: TStringField;
    dcdQbh: TStringField;
    dcdQmc: TStringField;
    dcdQgg: TStringField;
    dcdQdj: TBCDField;
    dcdQsl: TBCDField;
    dcdQje: TBCDField;
    dcdQfkbz: TBooleanField;
    dcdQzfbz: TBooleanField;
    dcdQzcbz: TStringField;
    dcdQzkl: TIntegerField;
    dcdQzke: TBCDField;
    dcdQfwfl: TIntegerField;
    dcdQfwfe: TBCDField;
    dcdQshuilv: TIntegerField;
    dcdQse: TBCDField;
    dcdQzsbz: TBooleanField;
    dcdQwmbz: TBooleanField;
    dcdQszdd: TStringField;
    dcdQcfdy: TBooleanField;
    dcdQcfdyjhm: TStringField;
    dcdQccjdyjhm: TStringField;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure treeview1det;
    procedure listview1det;
    procedure TreeView1Click(Sender: TObject);
    procedure Query1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
    procedure Label3Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure detspbt(sender:Tobject;var ii:integer;Acaption:string;Allocation:string);
    procedure clearspbt(var ii:integer);
    procedure SpeedButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure SpdButtonClick(Sender:Tobject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    twzt:string;
    ctbh1,twbh1,ctbh2,twbh2:string;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  qtkdForm: TqtkdForm;
  bbtt:array[1..100] of Tbitbtn;
  bb:array[1..100] of Tbitbtn;
implementation
uses pass,rjsmain, qtmain, bingzhouU, cyyd;
{$R *.dfm}

procedure TqtkdForm.FormActivate(Sender: TObject);
var ii,jj:integer;
    st,sst:string;
    tt:TTreeNode;
begin
    query1.Filtered:=false;
    query3.Close;
    query3.SQL.Clear;
    query3.SQL.Add('select * from taiwei ');
    query2.Close;
    query2.SQL.Clear;
    query2.SQL.Add('select * from canting ');
    sst:=trim(pass.twbh);
    for jj:=1 to 10 do
    begin
      ii:=pos(';',sst);
      st:=copy(sst,1,ii-1);
      if sst='' then break
      else begin
        if jj=1 then
         begin
            query3.SQL.Add('where twbh=:cs'+inttostr(jj));
            query3.ParamByName('cs'+inttostr(jj)).AsString:=st;
         end
        else
         begin
          query3.SQL.Add(' or twbh=:cs'+inttostr(jj));
          query3.ParamByName('cs'+inttostr(jj)).AsString:=st;
         end;
        sst:=copy(sst,ii+1,length(sst));
      end;
    end;
    query3.SQL.Add(' order by twbh');
    query3.Open;
    jj:=1;
    while not query3.Eof do
    begin
        ii:=pos(';',query3.FieldByName('ctbm').AsString);
        st:=copy(query3.FieldByName('ctbm').AsString,1,ii-1);
        if jj=1 then
        begin
          query2.SQL.Add('where ctbh=:cs'+inttostr(jj));
          query2.ParamByName('cs'+inttostr(jj)).AsString:=st;
        end
        else
        begin
          query2.SQL.Add('or ctbh=:cs'+inttostr(jj));
          query2.ParamByName('cs'+inttostr(jj)).AsString:=st;
        end;
        jj:=jj+1;
        query3.Next;
    end;
    query3.Close;
    treeview1.Items.Clear;
    tt:=treeview1.TopItem;
    query2.SQL.Add(' order by ctbh');
    query2.Open;
    while not query2.Eof do
    begin
      treeview1.Items.Add(tt,query2ctmc.asstring);
      tt:=treeview1.Selected;
      query2.Next;
    end;
    query2.first;
    treeview1det;
    timer1.Enabled:=true;
    Timer1Timer(sender);
end;

procedure TqtkdForm.treeview1det;
var ss:string;
begin
  if treeview1.Selected=nil then
  begin
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.Add('select * from cantai order by ctbh');
    query1.Open;
    listview1det;
    exit;
  end;
  ss:=treeview1.Selected.Text;
  query2.Locate('ctmc',ss,[]);
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select * from cantai where ctbh=:ctbh order by ctbh, twbh');
  query1.Parameters[0].Value:=query2ctbh.AsString;
  query1.Open;
  listview1det;
end;

procedure TqtkdForm.detspbt(sender:Tobject;var ii:integer;Acaption:string;Allocation:string);
begin
  bbtt[ii].Visible:=true;
  bbtt[ii].Caption:=Acaption;;
  bbtt[ii].Glyph.LoadFromFile(Allocation);
  if pos('金额',bbtt[ii].Caption)>0 then bbtt[ii].Font.Color:=clblue
  else bbtt[ii].Font.Color:=clBlack;
end;

procedure TqtkdForm.clearspbt(var ii:integer);
var jj:integer;
begin
 for jj:=ii to 100 do
   bbtt[jj].Visible:=false;
end;

procedure TqtkdForm.listview1det;
var ii:integer;
    Acaption,Allocation:string;       
    sender:Tobject;
begin
    ii:=0;
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.Add('select * from cantai order by ctbh, twbh ');
    query1.Open;
    while not query1.Eof do
    begin
//        if sumdcdq.Active then sumdcdq.Close;
//        sumdcdq.Parameters.ParamByName('cs1').Value:=query1djh.Value;
//        sumdcdq.Open;
//        if sumdcdqjje.AsFloat<=0 then
        if query1xfje.AsFloat<=0 then
        begin
          Acaption:=query1twbh.AsString+'['+ query1twmc.asstring+']';
          Allocation:=extractfiledir(application.ExeName)+'\hxq00051.bmp';
        end
       else
       begin
        Acaption:=query1twbh.AsString+'['+ query1twmc.asstring+']'+#13+formatdatetime('hh:mm:ss',query1kssj.asdatetime)+#13+'金额:￥'+ query1xfje.AsString; //sumdcdqjje.AsString;
        Allocation:=extractfiledir( application.ExeName)+'\hxq0051.bmp';
       end;
//       sumdcdq.Close;
       ii:=ii+1;
       detspbt(sender,ii,Acaption,Allocation);
       query1.Next;
    end;
    ii:=ii+1;
    clearspbt(ii);
end;

procedure TqtkdForm.TreeView1Click(Sender: TObject);
begin
     treeview1det;
end;

procedure TqtkdForm.Query1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
     accept:=dataset.FieldByName('twzt').AsString=twzt;
end;

procedure TqtkdForm.Label3Click(Sender: TObject);
begin
     twzt:='K';
     query1.Filtered:=false;
     query1.Filtered:=true;
     listview1det;
end;

procedure TqtkdForm.Label6Click(Sender: TObject);
begin
     twzt:='';
     query1.Filtered:=false;
     listview1det;
end;

procedure TqtkdForm.Label4Click(Sender: TObject);
begin
     twzt:='Y';
     query1.Filtered:=false;
     query1.Filtered:=true;
     listview1det;
end;

procedure TqtkdForm.Label5Click(Sender: TObject);
begin
     twzt:='Z';
     query1.Filtered:=false;
     query1.Filtered:=true;
     listview1det;
end;

procedure TqtkdForm.Label7Click(Sender: TObject);
begin
     listview1det;
end;

procedure TqtkdForm.SpeedButtonClick(Sender:Tobject);
var ss:string;
    i,ii:integer;
begin
     if activecontrol.ClassType<>Tbitbtn then exit;
     if copy(activecontrol.Name,1,3)<>'sp_' then exit;
     ii:=strtoint(copy(activecontrol.Name,4,3));
     i:=pos('[', bbtt[ii].Caption);
     ss:=copy(bbtt[ii].Caption,1,i-1);
     query1.Close;
     query1.SQL.Clear;
     query1.SQL.Add('select * from cantai where twbh=:twbh');
     query1.Parameters[0].Value:=ss;
     query1.Open;
     if query1czbz.AsBoolean=true then
     begin
       messagedlg('由于该餐台被其他用户锁定，无法继续操作！'+#13+'请等会再试！',mtwarning,[mbok],0);
       exit;
     end;
     try
       query1.Edit;
       query1czbz.AsBoolean:=true;
       query1.Post;
     except
       messagedlg('无法继续操作！'+#13+'请等会再试！',mtwarning,[mbok],0);
       exit;
     end;
     qtform.Edit6.Text:=query2ctbh.Value;
     qtform.labelededit5.Text:=query2ctmc.Value;
     qtform.edit7.Text:=query1twbh.Value;