pub_chooseht.~pas

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

unit Pub_ChooseHT;

interface

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

type
  TfrmPub_ChooseHT = class(TForm)
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    SpinEdit1: TSpinEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Panel1: TPanel;
    ListView1: TListView;
    ADOQuery1: TADOQuery;
    ImageList1: TImageList;
    procedure ComboBox1Change(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
  private
    { Private declarations }
    procedure GetData ;
  public
    { Public declarations }
    procedure SetYear;
    function GetResult(var HtID,HtName : string) : boolean;
  end;

  function GetHtID(var HtID,HtName : string) : boolean;
var
  frmPub_ChooseHT: TfrmPub_ChooseHT;

implementation
  uses pdm,pub;
{$R *.dfm}

function GetHtID(var HtID,HtName : string) : boolean;
begin
  Application.CreateForm(TfrmPub_ChooseHT,frmPub_ChooseHT);
  with frmPub_ChooseHT do
       begin
            SetYear;
            if ShowModal=mrok then begin
               if GetResult(HtID,HtName) then begin
                  result := true;
               end else
                  result := false;
            end else result := false;     
       end;
end;

procedure TfrmPub_ChooseHT.SetYear;
begin
  SpinEdit1.Text := FormatDateTime('yyyy',Date);
end;

function TfrmPub_ChooseHT.GetResult(var HtID,HtName : string) : boolean;
begin
  if Assigned(ListView1.Selected) then begin
         HtID := ListView1.Selected.SubItems.Strings[0];
         HtName := ListView1.Selected.Caption ;
         result := true;
     end else
         result := false;
end;

procedure TfrmPub_ChooseHT.GetData ;
var SqlText : string;
begin
 SqlText := 'select ID,Name,QDRQ from TAIZ';
 SqlText := SqlText+ ' where QDYF ='+#39+ComBobox1.Text+#39+' and QDNF='+#39+SpinEdit1.Text+#39 ;
 HeTong_ViewData( SqlText, ADOQuery1,'1', ListView1) ;
end;

procedure TfrmPub_ChooseHT.ComboBox1Change(Sender: TObject);
begin
  GetData ;
end;

procedure TfrmPub_ChooseHT.SpinEdit1Change(Sender: TObject);
begin
  GetData ;
end;

procedure TfrmPub_ChooseHT.ListView1DblClick(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
     BitBtn1.Click;
end;

end.