u_data.pas

很好的合同管理系统完整源码,适合初学者参考

unit U_Data;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TData1 = class(TDataModule)
    AC: TADOConnection;
    htlx: TADOQuery;
    htb: TADOQuery;
    xtsz: TADOQuery;
    ADOPublic: TADOQuery;
    ADOQuery1: TADOQuery;
    ADOQYdwxx: TADOQuery;
    lxsz: TADOQuery;
    login: TADOQuery;
    log: TADOQuery;
    Rz_Gl: TADOQuery;
    skin: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data1: TData1;

implementation

{$R *.dfm}

end.