datamodule.~pas

来自「电脑公司销售、财务管理子系统 本文重点研究的是电脑公司管理信息系统」· ~PAS 代码 · 共 87 行

unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    LoginQuery: TADOQuery;
    LoginDataSource: TDataSource;
    XxQuery: TADOQuery;
    XxDataSource: TDataSource;
    GkQuery: TADOQuery;
    GkDataSource: TDataSource;
    PjQuery: TADOQuery;
    PjDataSource: TDataSource;
    SellerTable: TADOTable;
    SellerPartsTable: TADOTable;
    BxQuery: TADOQuery;
    BxDataSource: TDataSource;
    FxQuery: TADOQuery;
    FxDataSource: TDataSource;
    BxQuery0: TADOQuery;
    XscxQuery: TADOQuery;
    XscxDataSource: TDataSource;
    XscxQuery1: TADOQuery;
    YgzlQuery: TADOQuery;
    YgzlDataSource: TDataSource;
    YgjcQuery: TADOQuery;
    YgjcDataSource: TDataSource;
    CpbjQuery0: TADOQuery;
    CpbjQuery1: TADOQuery;
    CpbjDataSource1: TDataSource;
    YggzQuery0: TADOQuery;
    YggzQuery1: TADOQuery;
    YggzDataSource1: TDataSource;
    CwsrQuery0: TADOQuery;
    CwsrQuery1: TADOQuery;
    CwsrDataSource1: TDataSource;
    CwzcQuery0: TADOQuery;
    CwzcQuery1: TADOQuery;
    CwzcDataSource1: TDataSource;
    ADOStoredProc_PartName: TADOStoredProc;
    DataSource_PartName: TDataSource;
    ADOStoredProc_PartType: TADOStoredProc;
    DataSource_PartType: TDataSource;
    ADOStoredProc_PartId: TADOStoredProc;
    DataSource_PartId: TDataSource;
    ADOStoredProc_PartNumber: TADOStoredProc;
    ADOQuery_xxxg: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses login;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  with DM.LoginQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select DepId,DepName from Department') ;
    SQL.Add('order by DepId') ;
    Open;
    while not Eof do
    begin
      LoginForm.ComboBox1.Items.Add(FieldByName('DepName').AsString);
      Next;
    end;
  end;
end;

end.