countselpas.pas

DELPHI 编写个人工作计划事务管理软件

unit CountSelPas;

interface

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

type
  TCountSelForm = class(TForm)
    RB_LogUser: TRadioButton;
    RB_AllUser: TRadioButton;
    CountOkBut: TBitBtn;
    TopDownBevel: TBevel;
    CB_AllUser: TComboBox;
    Label_LogUser: TLabel;
    Label_AllUser: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure RB_LogUserClick(Sender: TObject);
    procedure RB_AllUserClick(Sender: TObject);
    procedure CountOkButClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CountSelForm: TCountSelForm;

implementation

uses Share_Date;
{$R *.dfm}

procedure TCountSelForm.FormCreate(Sender: TObject);
begin
  //==== 统计窗口创建时的代码 ====//
  RB_LogUser.Checked := TRUE;

  Label_AllUser.Enabled := FALSE;
  CB_AllUser.Clear;
  CB_AllUser.Items.AddStrings(Share_Str);
  CB_AllUser.ItemIndex := 0;
  CB_AllUser.Enabled := FALSE;
end;


procedure TCountSelForm.RB_LogUserClick(Sender: TObject);
begin
  Label_AllUser.Enabled := FALSE;
  CB_AllUser.ItemIndex := 0;
  CB_AllUser.Enabled := FALSE;
end;

procedure TCountSelForm.RB_AllUserClick(Sender: TObject);
begin
  Label_LogUser.Enabled := FALSE;
  Label_AllUser.Enabled := TRUE;

  CB_AllUser.ItemIndex := 0;
  CB_AllUser.Enabled := TRUE;
end;

procedure TCountSelForm.CountOkButClick(Sender: TObject);
begin
  //==== 单击确定按钮时的代码 ====//
  Share_SqlStr := 'SELECT * From JihuaTable';
  if RB_LogUser.Checked = TRUE then begin
    Share_SqlStr := Share_SqlStr + '  WHERE JihuaName=''';
    Share_SqlStr := Share_SqlStr + Share_LogName + '''';
  end else if RB_AllUser.Checked = TRUE then begin
    if CompareText('ALL USES', Trim(CB_AllUser.Text)) <> 0 then begin
      Share_SqlStr := Share_SqlStr + ' WHERE JihuaName=''';
      Share_SqlStr := Share_SqlStr + Trim(CB_AllUser.Text) + '''';
    end;
  end;
end;

end.