dm.pas

医院X光片资料管理系统—全部源码 这是源码。去年做的一个小软件。因为这是给一家医院做的

unit dm;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdmfm = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    ADOTable3: TADOTable;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    ADOQuery7: TADOQuery;
    DataSource7: TDataSource;
    ADOQuery7xph: TWideStringField;
    ADOQuery7xm: TWideStringField;
    ADOQuery7zyh: TWideStringField;
    ADOQuery7xb: TWideStringField;
    ADOQuery7nl: TSmallintField;
    ADOQuery7bw: TWideStringField;
    ADOQuery7rq: TDateTimeField;
    ADOQuery7xzd: TWideStringField;
    ADOQuery7lzd: TWideStringField;
    ADOQuery7yx: TWideStringField;
    ADOQuery7fh: TWideStringField;
    ADOQuery7zs: TSmallintField;
    ADOQuery7bz: TWideStringField;
    ADOQuery7zy: TWideStringField;
    ADOQuery7xg: TWideStringField;
    ADOQuery7id: TIntegerField;
    ADOQuery8: TADOQuery;
    IntegerField1: TIntegerField;
    WideStringField1: TWideStringField;
    WideStringField2: TWideStringField;
    WideStringField3: TWideStringField;
    WideStringField4: TWideStringField;
    SmallintField1: TSmallintField;
    WideStringField5: TWideStringField;
    DateTimeField1: TDateTimeField;
    WideStringField6: TWideStringField;
    WideStringField7: TWideStringField;
    WideStringField8: TWideStringField;
    WideStringField9: TWideStringField;
    SmallintField2: TSmallintField;
    WideStringField10: TWideStringField;
    WideStringField11: TWideStringField;
    WideStringField12: TWideStringField;
    DataSource8: TDataSource;
    ADOQuery9: TADOQuery;
    IntegerField2: TIntegerField;
    WideStringField13: TWideStringField;
    WideStringField14: TWideStringField;
    WideStringField15: TWideStringField;
    WideStringField16: TWideStringField;
    SmallintField3: TSmallintField;
    WideStringField17: TWideStringField;
    DateTimeField2: TDateTimeField;
    WideStringField18: TWideStringField;
    WideStringField19: TWideStringField;
    WideStringField20: TWideStringField;
    WideStringField21: TWideStringField;
    SmallintField4: TSmallintField;
    WideStringField22: TWideStringField;
    WideStringField23: TWideStringField;
    WideStringField24: TWideStringField;
    DataSource9: TDataSource;
    ADOQuery9xmpy: TWideStringField;
    ADOQuery10: TADOQuery;
    DataSource10: TDataSource;
    ADOQuery11: TADOQuery;
    DataSource11: TDataSource;
    ADOQuery12: TADOQuery;
    DataSource12: TDataSource;
    ADOQuery13: TADOQuery;
    DataSource13: TDataSource;
    ADOQuery10ysxm: TWideStringField;
    ADOQuery10xmpy: TWideStringField;
    ADOQuery11bw: TWideStringField;
    ADOQuery11py: TWideStringField;
    ADOQuery12lzd: TWideStringField;
    ADOQuery13xzd: TWideStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmfm: Tdmfm;

implementation

{$R *.dfm}

end.