newdm.pas

商品批发管理系统 本作品采用C/S模式

unit newDM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection: TADOConnection;
    DSgysb: TDataSource;
    ADOTgysb: TADOTable;
    gysbh: TStringField;
    gysmc: TStringField;
    lxrxm: TStringField;
    lxrtx: TStringField;
    dz: TStringField;
    cs: TStringField;
    dq: TStringField;
    yzbm: TStringField;
    gj: TStringField;
    dh: TStringField;
    cz: TStringField;
    ADOQgysb: TADOQuery;
    DSgysbCX: TDataSource;
    ADOQgysbgysbh: TStringField;
    ADOQgysbgysmc: TStringField;
    ADOQgysblxrxm: TStringField;
    ADOQgysblxrtx: TStringField;
    ADOQgysbdz: TStringField;
    ADOQgysbcs: TStringField;
    ADOQgysbdq: TStringField;
    ADOQgysbyzbm: TStringField;
    ADOQgysbgj: TStringField;
    ADOQgysbdh: TStringField;
    ADOQgysbcz: TStringField;
    ADOTspgl: TADOTable;
    DSspgl: TDataSource;
    ADOTspglcpbh: TStringField;
    ADOTspglcpmc: TStringField;
    ADOTspglgysbh: TStringField;
    ADOTspgllbbh: TStringField;
    ADOTspgldwsl: TStringField;
    ADOTspgldj: TBCDField;
    ADOTspglkcl: TBCDField;
    ADOTspgldgl: TBCDField;
    ADOTspglzdgl: TBCDField;
    ADOTspglzz: TStringField;
    ADOQspgl: TADOQuery;
    DSspblCX: TDataSource;
    ADOQspglcpbh: TStringField;
    ADOQspglcpmc: TStringField;
    ADOQspglgysbh: TStringField;
    ADOQspgllbbh: TStringField;
    ADOQspgldwsl: TStringField;
    ADOQspgldj: TBCDField;
    ADOQspglkcl: TBCDField;
    ADOQspgldgl: TBCDField;
    ADOQspglzdgl: TBCDField;
    ADOQspglzz: TStringField;
    ADOTkhgl: TADOTable;
    DSkhgl: TDataSource;
    DSkhglCX: TDataSource;
    ADOQkhgl: TADOQuery;
    ADOTkhglkhbh: TStringField;
    ADOTkhglkhmc: TStringField;
    ADOTkhgllxrxm: TStringField;
    ADOTkhgllxrtx: TStringField;
    ADOTkhgldz: TStringField;
    ADOTkhglcs: TStringField;
    ADOTkhgldq: TStringField;
    ADOTkhglyzbm: TStringField;
    ADOTkhglgj: TStringField;
    ADOTkhgldh: TStringField;
    ADOTkhglcz: TStringField;
    ADOQkhglkhbh: TStringField;
    ADOQkhglkhmc: TStringField;
    ADOQkhgllxrxm: TStringField;
    ADOQkhgllxrtx: TStringField;
    ADOQkhgldz: TStringField;
    ADOQkhglcs: TStringField;
    ADOQkhgldq: TStringField;
    ADOQkhglyzbm: TStringField;
    ADOQkhglgj: TStringField;
    ADOQkhgldh: TStringField;
    ADOQkhglcz: TStringField;
    ADOTddgl: TADOTable;
    DSddgl: TDataSource;
    DSddglMX: TDataSource;
    ADOTddglMX: TADOTable;
    ADOTddglMXGY: TADOTable;
    DSddglMXGY: TDataSource;
    ADOTgygl: TADOTable;
    DSgygl: TDataSource;
    ADOQgygl: TADOQuery;
    DSgyglCX: TDataSource;
    ADOTyhsgl: TADOTable;
    ADOQyhsgl: TADOQuery;
    DSyhsgl: TDataSource;
    DSyhsglCX: TDataSource;
    ADOQyhsglyhsbh: TStringField;
    ADOQyhsglyhsmc: TStringField;
    ADOQyhsgldh: TStringField;
    ADOQgyglgybh: TStringField;
    ADOQgyglxm: TStringField;
    ADOQgygltx: TStringField;
    ADOQgyglzc: TStringField;
    ADOQgyglcsrq: TDateTimeField;
    ADOQgygldz: TStringField;
    ADOQgyglcs: TStringField;
    ADOQgygldq: TStringField;
    ADOQgyglyzbm: TStringField;
    ADOQgyglgj: TStringField;
    ADOQgygldh: TStringField;
    ADOQgyglcz: TStringField;
    ADOQgyglgyrq: TDateTimeField;
    ADOQlbgl: TADOQuery;
    DSlbgl: TDataSource;
    DSlbglCX: TDataSource;
    ADOTlbgl: TADOTable;
    ADOTlbgllbbh: TStringField;
    ADOTlbgllbmc: TStringField;
    ADOTlbglsm: TStringField;
    ADOQlbgllbbh: TStringField;
    ADOQlbgllbmc: TStringField;
    ADOQlbglsm: TStringField;
    ADOTddglddbh: TStringField;
    ADOTddglkhbh: TStringField;
    ADOTddglgybh: TStringField;
    ADOTddgldgrq: TDateTimeField;
    ADOTddgldhrq: TDateTimeField;
    ADOTddglfhrq: TDateTimeField;
    ADOTddglyhsbh: TStringField;
    ADOTddglyhf: TBCDField;
    ADOTddglhzmc: TStringField;
    ADOTddglhzdz: TStringField;
    ADOTddglhzcs: TStringField;
    ADOTddglhzdq: TStringField;
    ADOTddglhzyzbm: TStringField;
    ADOTddglhzgj: TStringField;
    ADOQddgl: TADOQuery;
    DSddglCX: TDataSource;
    ADOQddglddbh: TStringField;
    ADOQddglkhbh: TStringField;
    ADOQddglgybh: TStringField;
    ADOQddgldgrq: TDateTimeField;
    ADOQddgldhrq: TDateTimeField;
    ADOQddglfhrq: TDateTimeField;
    ADOQddglyhsbh: TStringField;
    ADOQddglyhf: TBCDField;
    ADOQddglhzmc: TStringField;
    ADOQddglhzdz: TStringField;
    ADOQddglhzcs: TStringField;
    ADOQddglhzdq: TStringField;
    ADOQddglhzyzbm: TStringField;
    ADOQddglhzgj: TStringField;
    ADOTddglMXall: TADOTable;
    ADOQtubiao: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses main;

{$R *.dfm}

end.