⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 uy_ctyl.pas

📁 恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001
💻 PAS
字号:
🔍 
unit uy_ctyl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ImgList, ComCtrls, ToolWin, Tabs, ExtCtrls, Db, DBTables;

type
  Ty_ctyl = class(TForm)
    ScrollBox1: TScrollBox;
    sp: TSplitter;
    TreeView1: TTreeView;
    ListView1: TListView;
    TabSet2: TTabSet;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    btnLargeIcons: TToolButton;
    btnSmallIcons: TToolButton;
    btnList: TToolButton;
    btnReport: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    L1: TMenuItem;
    X1: TMenuItem;
    H1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    ImageList2: TImageList;
    StatusBar1: TStatusBar;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    yl: TToolButton;
    dy: TToolButton;
    ToolButton11: TToolButton;
    ToolButton6: TToolButton;
    ImageList3: TImageList;
    N3: TMenuItem;
    cd: TTable;
    cdCdbh: TStringField;
    cdFdbh: TStringField;
    cdYCRQ: TDateTimeField;
    cdYcsj: TDateTimeField;
    cdYyLX: TStringField;
    cdyylx1: TStringField;
    cdSrlb: TStringField;
    cdsrlb1: TStringField;
    cdTh: TStringField;
    cdtm: TStringField;
    cdTht: TStringField;
    cdKrs: TIntegerField;
    cdFwyh: TStringField;
    cdSkyh: TStringField;
    cdDCYH: TStringField;
    cdZJ: TFloatField;
    cdXJ: TFloatField;
    cdzj1: TFloatField;
    cdSsje: TFloatField;
    cdFWF: TFloatField;
    cdZKf: TFloatField;
    cdZsje: TFloatField;
    cdSfbz: TFloatField;
    cdJzrq: TDateTimeField;
    cdJZsj: TDateTimeField;
    cdJZFS: TStringField;
    cdjzfs1: TStringField;
    cdQdjz: TStringField;
    cdSKJE: TFloatField;
    cdZT: TStringField;
    cdSKTH: TStringField;
    cdPzrh: TStringField;
    cdQdrm: TStringField;
    cdCKBH: TStringField;
    cdDBXM: TStringField;
    cdzws: TIntegerField;
    d_cd: TDataSource;
    cdmx: TTable;
    cdmxBh: TIntegerField;
    cdmxCDBH: TStringField;
    cdmxCLH: TStringField;
    cdmxCh: TStringField;
    cdmxCm: TStringField;
    cdmxDj: TFloatField;
    cdmxSl: TFloatField;
    cdmxDzl: TFloatField;
    cdmxHj: TFloatField;
    cdmxGG: TStringField;
    cdmxSRLB: TStringField;
    cdmxCz: TStringField;
    cdmxTcyyh: TStringField;
    cdmxTCYY: TStringField;
    cdmxPzrh: TStringField;
    cdmxTsl: TFloatField;
    cdmxLbh: TStringField;
    cdmxcz1: TStringField;
    d_cdmx: TDataSource;
    yylx: TTable;
    yylxBH: TStringField;
    yylxYylx: TStringField;
    yylxSJ1: TDateTimeField;
    yylxSJ2: TDateTimeField;
    yylxD_yn: TBooleanField;
    d_yylx: TDataSource;
    y_jzfs: TTable;
    y_jzfsJZFSH: TStringField;
    y_jzfsJzfs: TStringField;
    y_jzfsD_yn: TBooleanField;
    dy_jzfs: TDataSource;
    srlb: TTable;
    srlbBH: TStringField;
    srlbSrlb: TStringField;
    srlbD_yn: TBooleanField;
    d_srlb: TDataSource;
    cdmx_cz: TTable;
    cdmx_czBh: TStringField;
    cdmx_czCz: TStringField;
    tai: TTable;
    taiTH: TStringField;
    taitm: TStringField;
    taiTHT: TStringField;
    taiFDBH: TStringField;
    taiZWS: TIntegerField;
    taiFWFL: TFloatField;
    taiDZL: TFloatField;
    taiSfbz: TFloatField;
    taiZdxf: TFloatField;
    taiFWYH: TStringField;
    taiFwym: TStringField;
    taiSfbj: TStringField;
    taiZT: TStringField;
    taizt1: TStringField;
    d_tai: TDataSource;
    t: TTable;
    tFDBH: TStringField;
    tTH: TStringField;
    tTM: TStringField;
    tSfbj: TStringField;
    d_t: TDataSource;
    tai_zt: TTable;
    N4: TMenuItem;
    N5: TMenuItem;
    procedure TabSet2Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure ListView1Change(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure tcClick(Sender: TObject);
    procedure btnLargeIconsClick(Sender: TObject);
    procedure btnSmallIconsClick(Sender: TObject);
    procedure btnListClick(Sender: TObject);
    procedure btnReportClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ylClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N2Click(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure l_xr;
  end;

var
  y_ctyl: Ty_ctyl;
  ListItem:TListItem;
implementation

uses ug_dcd, u_ctyl_yj, uy_ctyl_bl, usp_tai, uabout, ug_wait;

{$R *.DFM}
procedure Ty_ctyl.l_xr;
begin
 with tai do
  begin
   ListItem.SubItems.Add(fieldbyname('zws').asstring);
   ListItem.SubItems.Add(fieldbyname('fwym').asstring);
   ListItem.SubItems.Add(fieldbyname('sfbj').asstring);
{   ListItem.SubItems.Add(fieldbyname('ycsj').asstring);
   ListItem.SubItems.Add(fieldbyname('jzfs').asstring);
   ListItem.SubItems.Add(fieldbyname('jzsj').asstring);
   ListItem.SubItems.Add(fieldbyname('zj').asstring);
   ListItem.SubItems.Add(fieldbyname('xj').asstring);
   ListItem.SubItems.Add(fieldbyname('fwf').asstring);
   ListItem.SubItems.Add(fieldbyname('zkf').asstring);
   ListItem.SubItems.Add(fieldbyname('zsje').asstring);
   ListItem.SubItems.Add(fieldbyname('qdr').asstring); }
  end; 

end;

procedure Ty_ctyl.TabSet2Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
case NewTab of
 0:
   with ListView1,tai do
    begin
     first;
     Items.Clear;
     while not eof do
      begin
        ListItem:=Items.Add;
        ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
        ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
        l_xr;
        next;
      end;
    end;
 1:
   with ListView1,tai do
     begin
      first;
      Items.Clear;
      while not eof do
       begin
        if (fieldbyname('zt').asstring='1') or (fieldbyname('zt').asstring='4')  then
          begin
            ListItem:= Items.Add;
            ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
            ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
            l_xr;
           end;
        next;
       end;
     end;
   2:
     with ListView1,tai do
      begin
       first;
       Items.Clear;
       while not eof do
         begin
           if fieldbyname('zt').asstring='2' then
             begin
              ListItem:= Items.Add;
              ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
              ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
              l_xr;
             end;
           next;
          end;
       end;
    3:
     with ListView1,tai do
      begin
       first;
       Items.Clear;
       while not eof do
        begin
          if fieldbyname('zt').asstring='3' then
           begin
            ListItem:= Items.Add;
            ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
            ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
            L_xr;
           end;
          next;
        end;
      end;  
   4:
     with ListView1,tai do
      begin
       first;
       Items.Clear;
       while not eof do
        begin
         if fieldbyname('zt').asstring='4' then
           begin
            ListItem:= Items.Add;
            ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
            ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
            l_xr;
           end;
         next;
       end;
     end;  
   5:
     with ListView1,tai do
      begin
       first;
       Items.Clear;
       while not eof do
        begin
         if fieldbyname('zt').asstring='5' then
           begin
            ListItem:= Items.Add;
            ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
            ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
            l_xr;
           end;
         next;
       end;
      end;
  end;
 if newtab=1 then
    begin
      TreeView1.Visible:=true;
      sp.Visible:=true;
    end
   else
    begin
      TreeView1.Visible:=false;
      sp.Visible:=false;
    end;
  end;


procedure Ty_ctyl.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
case strtoint(copy(TreeView1.Selected.text,1,1)) of
 1:
   with ListView1,tai do
    begin
     first;
     Items.Clear;
     while not eof do
      begin
        if (fieldbyname('zt').asstring='1') or (fieldbyname('zt').asstring='4') then
          begin
            ListItem:= Items.Add;
            ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
            ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
            l_xr;
           end;
          next;
      end;
    end;
 2:
   with ListView1,tai do
    begin
     first;
     Items.Clear;
     while not eof do
      begin
        if fieldbyname('zt').asstring='1' then
          begin
            ListItem:= Items.Add;
            ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
            ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
            l_xr;
           end;
          next;
      end;
    end;
 3:
   with ListView1,tai do
    begin
     first;
     Items.Clear;
     while not eof do
      begin
        if fieldbyname('zt').asstring='4' then
          begin
            ListItem:= Items.Add;
            ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
            ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
            l_xr;
           end;
          next;
      end;
     end;
    end; 
end;

procedure Ty_ctyl.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
// showmessage(ListView1.Selected.Caption);
end;

procedure Ty_ctyl.tcClick(Sender: TObject);
begin
  close;
end;

procedure Ty_ctyl.btnLargeIconsClick(Sender: TObject);
begin
 ListView1.ViewStyle:=vsIcon;
end;

procedure Ty_ctyl.btnSmallIconsClick(Sender: TObject);
begin
 ListView1.ViewStyle:=vsSmallIcon;
end;

procedure Ty_ctyl.btnListClick(Sender: TObject);
begin
 ListView1.ViewStyle:=vsList;
end;

procedure Ty_ctyl.btnReportClick(Sender: TObject);
begin
 ListView1.ViewStyle:=vsReport;
end;

procedure Ty_ctyl.ToolButton2Click(Sender: TObject);
begin
 y_ctyl_yj.showmodal;
end;

procedure Ty_ctyl.ToolButton7Click(Sender: TObject);
begin
  y_ctyl_bl.showmodal;
end;

procedure Ty_ctyl.ylClick(Sender: TObject);
begin
 sp_tai.QuickRep1.preview;
end;

procedure Ty_ctyl.dyClick(Sender: TObject);
begin
 sp_tai.QuickRep1.print;
end;

procedure Ty_ctyl.FormShow(Sender: TObject);
begin
 if not tai_zt.Active then tai_zt.Active:=true;
 if not t.Active then t.Active:=true;
 if not tai.Active then tai.Active:=true;
 if not srlb.Active then srlb.Active:=true;
 if not yylx.Active then yylx.Active:=true;
 if not y_jzfs.Active then y_jzfs.Active:=true;
 if not cdmx_cz.Active then cdmx_cz.Active:=true;
 if not cdmx.Active then cdmx.Active:=true;
 if not cd.Active then cd.Active:=true;
 if y_ctyl_yj=NIL then y_ctyl_yj:=Ty_ctyl_yj.Create(self);
 if y_ctyl_bl=NIL then y_ctyl_bl:=Ty_ctyl_bl.Create(self);
 with ListView1,tai do
  begin
    first;
    Items.Clear;
    while not eof do
      begin
        ListItem:= Items.Add;
        ListItem.caption:=fieldbyname('th').asstring+fieldbyname('tht').asstring;
        ListItem.ImageIndex:=fieldbyname('zt').asinteger-1;
        l_xr;
        next;
      end;
  end;
 TabSet2.TabIndex:=0;
 g_wait.close;
end;

procedure Ty_ctyl.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
     83:TabSet2.tabindex:=0;
     90:TabSet2.tabindex:=1;
     75:TabSet2.tabindex:=2;
     88:TabSet2.tabindex:=3;
     87:TabSet2.tabindex:=4;
     89:TabSet2.tabindex:=5;
     end;
end;

procedure Ty_ctyl.N2Click(Sender: TObject);
begin
 if about=NIL then about:=Tabout.Create(self);
 about.showmodal;
end;

procedure Ty_ctyl.bzClick(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpJump('hpct');
end;

procedure Ty_ctyl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 y_ctyl:=NIL;
 y_ctyl_yj.Release;
 y_ctyl_yj:=NIL;
 y_ctyl_bl.Release;
 y_ctyl_bl:=NIL;
end;

procedure Ty_ctyl.N1Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_Finder,0);
end;

procedure Ty_ctyl.N5Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_PartialKey,0);
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -