【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-MC_TLCYGLXT.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.
上一篇:
MC_STSJSD.pas
下一篇:
超市进销存管理系统的开发