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

📄 mc_tlcyglxt.pas

📁 一个通用的餐饮管理软件
💻 PAS
字号:
unit MC_TLCYGLXT;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB;

type
  TTLCYGLXT = class(TDataModule)
    CYDATE: TDatabase;
    FJTHXXB: TTable;
    FJTHXXBBDEDesigner: TIntegerField;
    FJTHXXBBDEDesigner2: TStringField;
    FJTHXXBBDEDesigner3: TStringField;
    FJTHXXBBDEDesigner4: TFloatField;
    FJTHXXBBDEDesigner5: TStringField;
    FJTHSET: TDataSource;
    FJTHXXBBDEDesigner6: TStringField;
    FJTHLXB: TTable;
    FJTHLXBBDEDesigner: TStringField;
    FJTHLXSET: TDataSource;
    FJTHLXBBDEDesigner2: TIntegerField;
    FJTHLXBBDEDesigner3: TIntegerField;
    FJTHXXBBDEDesigner7: TStringField;
    FJTHBMB: TTable;
    FJTHBMBBDEDesigner: TIntegerField;
    FJTHBMBBDEDesigner2: TStringField;
    FJTHBMSET: TDataSource;
    CXLBXXB: TTable;
    CXLBXXBBDEDesigner: TIntegerField;
    CXLBXXBBDEDesigner2: TStringField;
    CXLBXXBSET: TDataSource;
    CPFYXXB: TTable;
    CPFYXXBBDEDesigner: TIntegerField;
    CPFYXXBBDEDesigner2: TStringField;
    CPFYXXBBDEDesigner3: TStringField;
    CPFYXXBBDEDesigner4: TFloatField;
    CPFYXXBBDEDesigner5: TStringField;
    CPFYXXBBDEDesigner6: TStringField;
    CPFYXXBSET: TDataSource;
    JSLBXXB: TTable;
    JSLBXXBBDEDesigner: TIntegerField;
    JSLBXXBBDEDesigner2: TStringField;
    JSLBSET: TDataSource;
    CJLBXXB: TTable;
    CJLBXXBBDEDesigner: TIntegerField;
    CJLBXXBBDEDesigner2: TStringField;
    CJLBSET: TDataSource;
    CKXXB: TTable;
    CKXXBBDEDesigner: TIntegerField;
    CKXXBBDEDesigner2: TStringField;
    CKXXBBDEDesigner3: TStringField;
    CKXXBSET: TDataSource;
    YGLBXXB: TTable;
    YGLBXXBBDEDesigner: TIntegerField;
    YGLBXXBBDEDesigner2: TStringField;
    YGLBSET: TDataSource;
    SPJCXXB: TTable;
    SPJCXXBBDEDesigner: TIntegerField;
    SPJCXXBBDEDesigner2: TStringField;
    SPJCXXBBDEDesigner3: TStringField;
    SPJCXXBBDEDesigner4: TStringField;
    SPJCXXBBDEDesigner5: TFloatField;
    SPJCXXBBDEDesigner7: TStringField;
    SPJCXXBBDEDesigner8: TStringField;
    SPJCXXBBDEDesigner9: TStringField;
    SPJCXXBBDEDesigner10: TStringField;
    SPJCXXBBDEDesigner11: TStringField;
    SPJCXXSET: TDataSource;
    CJFYXXB: TTable;
    CJFYXXBBDEDesigner: TIntegerField;
    CJFYXXBBDEDesigner2: TStringField;
    CJFYXXBBDEDesigner3: TStringField;
    CJFYXXBBDEDesigner4: TFloatField;
    CJFYXXBBDEDesigner5: TStringField;
    CJFYXXBBDEDesigner6: TStringField;
    CJFYXXSET: TDataSource;
    YGXXB: TTable;
    YGXXBBDEDesigner: TIntegerField;
    YGXXBBDEDesigner2: TStringField;
    YGXXBBDEDesigner3: TStringField;
    YGXXBBDEDesigner5: TDateTimeField;
    YGXXBBDEDesigner6: TStringField;
    YGXXBBDEDesigner7: TStringField;
    YGXXBBDEDesigner8: TStringField;
    YGXXBBDEDesigner9: TStringField;
    YGXXBSET: TDataSource;
    YGGZXXB: TTable;
    YGGZXXBBDEDesigner: TIntegerField;
    YGGZXXBBDEDesigner2: TStringField;
    YGGZXXBBDEDesigner3: TFloatField;
    YGGZXXBBDEDesigner4: TFloatField;
    YGGZXXBBDEDesigner5: TFloatField;
    YGGZXXBBDEDesigner6: TFloatField;
    YGGZXXBBDEDesigner7: TStringField;
    YGGZXXBBDEDesigner8: TFloatField;
    YGGZXXBBDEDesigner9: TFloatField;
    YGGZXXSET: TDataSource;
    YGXXBBDEDesigner10: TDateTimeField;
    YGXXBBDEDesigner11: TStringField;
    YGXXBBDEDesigner12: TStringField;
    KT_FJTHXXB: TTable;
    KT_FJTHXXBBDEDesigner: TIntegerField;
    KT_FJTHXXBBDEDesigner2: TStringField;
    KT_FJTHXXBBDEDesigner3: TStringField;
    KT_FJTHXXBBDEDesigner4: TStringField;
    KT_FJTHXXBBDEDesigner5: TFloatField;
    KT_FJTHXXBBDEDesigner6: TStringField;
    KT_FJTHXXBBDEDesigner7: TStringField;
    KT_FJTHSET: TDataSource;
    KT_FJTHBMB: TTable;
    KT_FJTHBMBBDEDesigner: TIntegerField;
    KT_FJTHBMBBDEDesigner2: TStringField;
    KT_FJTHBMSET: TDataSource;
    KT_FJTHLXB: TTable;
    KT_FJTHLXBBDEDesigner: TIntegerField;
    KT_FJTHLXBBDEDesigner2: TStringField;
    KT_FJTHLXBBDEDesigner3: TIntegerField;
    KT_FJTHLXSET: TDataSource;
    DCLSB: TTable;
    DCLSBBDEDesigner: TIntegerField;
    DCLSBBDEDesigner2: TStringField;
    DCLSBBDEDesigner3: TIntegerField;
    DCLSBBDEDesigner4: TStringField;
    DCLSBBDEDesigner5: TStringField;
    DCLSBBDEDesigner6: TStringField;
    DCLSBBDEDesigner7: TIntegerField;
    DCLSBBDEDesigner8: TFloatField;
    DCLSBBDEDesigner9: TFloatField;
    DCLSBBDEDesigner10: TDateTimeField;
    DCLSBBDEDesigner11: TDateTimeField;
    DCLSBBDEDesigner12: TIntegerField;
    DCLSBBDEDesigner13: TStringField;
    DCLSBBDEDesigner15: TIntegerField;
    DCLSBSET: TDataSource;
    DCLSBBDEDesigner14: TStringField;
    DCLSBBDEDesigner16: TStringField;
    JZBH: TTable;
    JZBHBDEDesigner: TIntegerField;
    JZBHSET: TDataSource;
    KCXXB: TTable;
    KCXXBSET: TDataSource;
    KCXXBBDEDesigner: TIntegerField;
    KCXXBBDEDesigner2: TStringField;
    KCXXBBDEDesigner3: TStringField;
    KCXXBBDEDesigner4: TIntegerField;
    KCXXBBDEDesigner5: TFloatField;
    KCXXBBDEDesigner6: TStringField;
    KCXXBBDEDesigner7: TDateTimeField;
    KCXXBBDEDesigner8: TStringField;
    SJFYXXB: TTable;
    SJFYXXBBDEDesigner: TIntegerField;
    SJFYXXBBDEDesigner2: TIntegerField;
    SJFYXXBBDEDesigner3: TStringField;
    SJFYXXBBDEDesigner4: TStringField;
    SJFYXXBBDEDesigner5: TFloatField;
    SJFYXXBBDEDesigner6: TStringField;
    SJFYXXBBDEDesigner7: TStringField;
    SJFYXXSET: TDataSource;
    Power: TTable;
    PowerBDEDesigner: TStringField;
    PowerBDEDesigner2: TStringField;
    PowerBDEDesigner3: TStringField;
    PowerBDEDesigner4: TStringField;
    PowerBDEDesigner5: TStringField;
    PowerSet: TDataSource;
    GSZJB: TTable;
    GSZJBBDEDesigner: TIntegerField;
    GSZJBBDEDesigner2: TDateTimeField;
    GSZJBBDEDesigner3: TFloatField;
    GSZJBBDEDesigner4: TStringField;
    GSZJSET: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TLCYGLXT: TTLCYGLXT;

implementation

uses MC_DCFY_LR;

{$R *.DFM}
procedure TTLCYGLXT.DataModuleCreate(Sender: TObject);
begin
    // TLCYGLXT.CYDATE.Open;
     //登陆数据库
end;

end.

⌨️ 快捷键说明

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