wj_httj_tj.pas

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

unit WJ_HTTJ_TJ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Spin;

type
  TfrmWJ_HTTJ_TJ = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpinEdit1: TSpinEdit;
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Init;
    function GetResult(var Title,SqlText : string) : boolean;
  end;
  function TongJCondition(var Title,SqlText : string) : boolean;

var
  frmWJ_HTTJ_TJ: TfrmWJ_HTTJ_TJ;

implementation

{$R *.dfm}
function TongJCondition(var Title,SqlText : string) : boolean;
begin
  result := false;
  Application.CreateForm(TfrmWJ_HTTJ_TJ,frmWJ_HTTJ_TJ);
  with frmWJ_HTTJ_TJ do
       begin
            Init;
            if ShowModal=mrok then
               if GetResult(Title,SqlText) then
                  result := true;
       end;
end;

function TfrmWJ_HTTJ_TJ.GetResult(var Title,SqlText : string) : boolean;
begin
  SqlText := ' where QDNF='+#39+SpinEdit1.Text+#39;
  Title := SpinEdit1.Text+'年';
  if (ComBobox1.Text<>'<None>')and(ComBobox2.Text<>'<None>') then
      begin
           Title := Title + ComBobox1.Text+'-'+ComBobox2.Text+'月';
           SqlText := SqlText + ' and QDYF between'+#39+ComBobox1.Text+#39+' and '+#39+ComBobox2.Text+#39;
      end
  else if ComBobox1.Text<>'<None>' then
      begin
           Title := Title + ComBobox1.Text+'月';
           SqlText := SqlText + ' and QDYF='+#39+ComBobox1.Text+#39;
      end;
  Title := Title + '台帐统计表';
  result := true;
end;

procedure TfrmWJ_HTTJ_TJ.Init;
begin
  SpinEdit1.Text := FormatDateTime('yyyy',date);
end;

procedure TfrmWJ_HTTJ_TJ.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.