workgroupconfirm_unt.pas

来自「煤矿行业采掘接替计划自动生成系统」· PAS 代码 · 共 61 行

unit WorkGroupConfirm_Unt;

interface

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

type
  TWorkGroupConfirm_Frm = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    GroupId:integer;
  end;

var
  WorkGroupConfirm_Frm: TWorkGroupConfirm_Frm;

implementation
uses Data_Unt;
{$R *.dfm}

procedure TWorkGroupConfirm_Frm.FormCreate(Sender: TObject);
begin
  if not adoquery1.Active then adoquery1.Open;
{with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 施工队f');
    sql.Add('where WorkGroup_Type=:v');
    Parameters.ParamByName('v').Value:='采煤';
    ExecSQL;
    open;
  end;}
end;

procedure TWorkGroupConfirm_Frm.BitBtn1Click(Sender: TObject);
begin
GroupId:=DBLookUpComboBox1.KeyValue;
close;
end;

procedure TWorkGroupConfirm_Frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
GroupId:=DBLookUpComboBox1.KeyValue;
end;

end.