unit2.pas

一个完整的工资管理系统 主要走查询 添加 删除 管理等功能

unit Unit2;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    DataSource2: TDataSource;
    ADOTable2: TADOTable;
    ADOQuery2: TADOQuery;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
  Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19,
  Unit20, Unit21, Unit22, Unit23, Unit25, Unit24, Unit26;

{$R *.dfm}

end.