eprselectunit.pas

来自「公交行业的管理系统」· PAS 代码 · 共 45 行

unit EprSelectUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB;

type
  TEprSelectFrm = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner27: TSmallintField;
    DataSource1: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    cocode:string;
    coname:string;
    coyear:string;
  end;

var
  EprSelectFrm: TEprSelectFrm;

implementation

uses BusTradeDataModuleUnit;

{$R *.dfm}

procedure TEprSelectFrm.BitBtn1Click(Sender: TObject);
begin
       cocode:=ADOQuery1.fieldbyname('单位代码').AsString;
       coname:=ADOQuery1.fieldbyname('单位名称').AsString;
       coYear:=ADOQuery1.FieldByName('统计年份').AsString;
end;

end.