qtmain3.pas

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

unit qtmain;

interface

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

type
  TqtForm = class(TForm)
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    SpeedButtona: TSpeedButton;
    SpeedButtonb: TSpeedButton;
    SpeedButtonc: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    ImageList1: TImageList;
    Query1: TQuery;
    UpdateSQL1: TUpdateSQL;
    Query2: TQuery;
    Query3: TQuery;
    pagecontrol1: TPageControl;
    TabSheet1: TTabSheet;
    Bevel3: TBevel;
    TabSheet2: TTabSheet;
    Bevel4: TBevel;
    TabSheet3: TTabSheet;
    Bevel5: TBevel;
    TabSheet4: TTabSheet;
    Bevel6: TBevel;
    TabSheet5: TTabSheet;
    Bevel7: TBevel;
    TabSheet6: TTabSheet;
    Bevel8: TBevel;
    TabSheet7: TTabSheet;
    Bevel9: TBevel;
    TabSheet8: TTabSheet;
    Bevel10: TBevel;
    TabSheet9: TTabSheet;
    Bevel11: TBevel;
    TabSheet10: TTabSheet;
    Bevel12: TBevel;
    TabSheet11: TTabSheet;
    Bevel13: TBevel;
    TabSheet12: TTabSheet;
    Bevel14: TBevel;
    TabSheet13: TTabSheet;
    Bevel15: TBevel;
    TabSheet14: TTabSheet;
    Bevel16: TBevel;
    TabSheet15: TTabSheet;
    Bevel17: TBevel;
    TabSheet16: TTabSheet;
    Bevel18: TBevel;
    TabSheet17: TTabSheet;
    Bevel19: TBevel;
    TabSheet18: TTabSheet;
    Bevel20: TBevel;
    Query4: TQuery;
    DataSource1: TDataSource;
    CheckBox1: TCheckBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    Bevel2: TBevel;
    SpeedButtond: TSpeedButton;
    SpeedButtone: TSpeedButton;
    SpeedButtonf: TSpeedButton;
    SpeedButtong: TSpeedButton;
    SpeedButtonh: TSpeedButton;
    SpeedButtonj: TSpeedButton;
    TreeView1: TTreeView;
    Query6: TQuery;
    Query5: TQuery;
    SpeedButtoni: TSpeedButton;
    tcwj: TQuery;
    tclsQ: TQuery;
    UpdateSQL3: TUpdateSQL;
    DataSource2: TDataSource;
    Query6id: TIntegerField;
    Query6qsh: TIntegerField;
    Query6djh: TIntegerField;
    Query6bclx: TStringField;
    Query4id: TIntegerField;
    Query4lbbm: TStringField;
    Query4mc: TStringField;
    Query4ywmc: TStringField;
    Query4ys: TIntegerField;
    Query4zt: TStringField;
    Query4zh: TIntegerField;
    Query4bz: TStringField;
    Query4dycdbh: TStringField;
    Query4zxh: TIntegerField;
    Query4cxh: TIntegerField;
    tcwjid: TIntegerField;
    tcwjzcbh: TStringField;
    tcwjpcbh: TStringField;
    tcwjpclb: TStringField;
    tcwjsl: TIntegerField;
    Query2bh: TStringField;
    Query2lbbm: TStringField;
    Query2mc: TStringField;
    Query2ywmc: TStringField;
    Query2gg: TStringField;
    Query2dj: TFloatField;
    Query2tcbz: TBooleanField;
    Query2zt: TBooleanField;
    Query2sfkj: TBooleanField;
    Query2zkdl: TBooleanField;
    Query2zkl: TIntegerField;
    Query2fwfdl: TBooleanField;
    Query2fwfl: TIntegerField;
    Query2shuilu: TIntegerField;
    Panel3: TPanel;
    QuickRep1: TQuickRep;
    PageHeaderBand2: TQRBand;
    ColumnHeaderBand2: TQRBand;
    DetailBand2: TQRBand;
    SummaryBand2: TQRBand;
    QRSysData3: TQRSysData;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRDBText7: TQRDBText;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRSysData4: TQRSysData;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRExpr2: TQRExpr;
    Query1ID: TIntegerField;
    Query1djh: TIntegerField;
    Query1th: TStringField;
    Query1yhh: TStringField;
    Query1rq: TDateTimeField;
    Query1lb: TStringField;
    Query1bh: TStringField;
    Query1mc: TStringField;
    Query1gg: TStringField;
    Query1dj: TFloatField;
    Query1sl: TIntegerField;
    Query1je: TFloatField;
    Query1fkbz: TBooleanField;
    Query1zfbz: TBooleanField;
    Query1zcbz: TStringField;
    tclsQID: TIntegerField;
    tclsQdjh: TIntegerField;
    tclsQth: TStringField;
    tclsQyhh: TStringField;
    tclsQrq: TDateTimeField;
    tclsQlb: TStringField;
    tclsQbh: TStringField;
    tclsQmc: TStringField;
    tclsQgg: TStringField;
    tclsQdj: TFloatField;
    tclsQsl: TIntegerField;
    tclsQje: TFloatField;
    tclsQfkbz: TBooleanField;
    tclsQzfbz: TBooleanField;
    tclsQzcbz: TStringField;
    lsQ: TADOQuery;
    lsQID: TAutoIncField;
    lsQdjh: TIntegerField;
    lsQth: TStringField;
    lsQyhh: TStringField;
    lsQrq: TDateTimeField;
    lsQlb: TStringField;
    lsQbh: TStringField;
    lsQmc: TStringField;
    lsQgg: TStringField;
    lsQdj: TBCDField;
    lsQsl: TIntegerField;
    lsQje: TBCDField;
    lsQfkbz: TBooleanField;
    lsQzfbz: TBooleanField;
    lsQzcbz: TStringField;
    procedure SpeedButtonbClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButtonaClick(Sender: TObject);
    procedure SpeedButtoneClick(Sender: TObject);
    procedure SpeedButtondClick(Sender: TObject);
    procedure SpeedButtoniClick(Sender: TObject);
    procedure SpeedButtoncClick(Sender: TObject);
    procedure SpeedButtonfClick(Sender: TObject);
    procedure SpeedButtongClick(Sender: TObject);
    procedure SpeedButtonhClick(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    btlb:array[1..18,1..42] of Tbitbtn;
    maxdjh,rrow,ccol:integer;
    cdbh: array[1..18,1..42] of string;
    cdlb: array[1..18,1..42] of string;
    treev :TtreeNode;
    vvv,hxq:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qtForm: TqtForm;

implementation

uses fkfs, tcyyxz, jgmsxz, tcxz;

{$R *.dfm}

procedure TqtForm.SpeedButtonbClick(Sender: TObject);
begin
     if (lsq.RecordCount>0) and (edit1.Text<>'0') then
     begin
      fkfsform.edit1.text:=edit1.text;
      if fkfsForm.showmodal=mrok then
      begin
        quickrep1.Preview;
        lsq.First;
        while not lsq.Eof do
        begin
          lsq.Edit;
          if lsqzfbz.AsBoolean=false then lsqfkbz.AsBoolean:=true;
          lsq.Next;
        end;
//        try
//          lsq.ApplyUpdates;
//        except
//          on e:exception do
//          showmessage(e.Message);
//        end;
        edit1.Text:='0';
      end;
     end;
end;

procedure TqtForm.FormActivate(Sender: TObject);
var i,j:integer;
    sst:string;
begin
     if vvv='vvv' then exit;
     hxq:='first';
     vvv:='vvv';
     edit1.Text:='0';
     query3.Open;
     i:=1;
     while not query3.Eof do
     begin
       pagecontrol1.Pages[i -1].TabVisible:=true;
       pagecontrol1.Pages[i -1].Caption:=query3.FieldByname('lbmc').AsString;
       i:=i+1;
       query3.Next;
     end;
//
     query4.Open;
     query4.First;
     while not query4.Eof do
     begin
        btlb[query4zxh.AsInteger,query4cxh.AsInteger].Caption:=query4mc.AsString;
        btlb[query4zxh.AsInteger,query4cxh.AsInteger].Font.Color:=query4ys.AsInteger;
        btlb[query4zxh.AsInteger,query4cxh.AsInteger].Font.Size:=query4zh.AsInteger;
        btlb[query4zxh.AsInteger,query4cxh.AsInteger].Font.Name:=query4zt.AsString;
        cdlb[query4zxh.AsInteger,query4cxh.AsInteger]:=query4.FieldByname('lbbm').AsString;
        cdbh[query4zxh.AsInteger,query4cxh.AsInteger]:=query4.FieldByname('dycdbh').AsString;
        if query4bz.AsString<>'' then btlb[query4zxh.AsInteger,query4cxh.AsInteger].Glyph.LoadFromFile(query4bz.AsString);
        query4.Next;
     end;
     query4.Close;
     pagecontrol1.ActivePageIndex:=0;
//   TabSheet1Show(sender);
//
     for j:=i -1 to pagecontrol1.PageCount -1 do pagecontrol1.Pages[j].TabVisible:=false;
     query3.Close;
     query2.Close;
     query2.Open;
     query1.ParamByName('cs1').AsDateTime:=date+strtotime('00:00:00');
     query1.ParamByName('cs2').AsDateTime:=date+strtotime('23:59:59');
     query1.Open;
     treeview1.Items.Clear;
     treev:=treeview1.TopItem;
     i:=0;
     while not query1.Eof do
     begin
       if i<>query1djh.AsInteger then
       begin
        treeview1.Items.Add(treev,query1djh.asstring);
        i:=treeview1.Items.Count -1;
        if query1fkbz.AsBoolean=true then
         if query1zfbz.AsBoolean=false then treeview1.Items[i].ImageIndex:=0
         else treeview1.Items[i].ImageIndex:=2
        else
         if query1zfbz.AsBoolean=false then treeview1.Items[i].ImageIndex:=1
         else treeview1.Items[i].ImageIndex:=3;
        treeview1.Items[i].StateIndex:=-1;
        treeview1.Items[i].SelectedIndex:=-1;
        treev:=treeview1.Selected;
        i:=query1djh.AsInteger;
       end;
       query1.Next;