selectwtf.~pas

完整的公司合同管理系统,基于ACSESS数据库开发,无须安装任何其他插件.附带源码.免费提供.

unit SelectWTF;

interface

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

type
  TfrmSelectWTF = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function SelectData(var WTF:string) : boolean;
  end;

  function GetYFDW (var WTF : string) : boolean;

var
  frmSelectWTF: TfrmSelectWTF;

implementation
 uses pdm;
{$R *.dfm}

function GetYFDW (var WTF : string) : boolean;
begin
  result := false;
  Application.CreateForm(TfrmSelectWTF,frmSelectWTF);
  with frmSelectWTF do
       begin
            ADOQuery1.Open;
            if ShowModal=mrok then
               if SelectData(WTF) then
                  result := true;
       end;
end;

function TfrmSelectWTF.SelectData(var WTF:string) : boolean;
begin
  WTF := ADOQuery1.FieldByName('WTF').AsString;
  result := true;
end;
procedure TfrmSelectWTF.BitBtn2Click(Sender: TObject);
begin
 close;
end;

end.