gstodaybybm.pas

有需要的同仁载回去慢慢研究

unit GsTodayByBm;

interface

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

type
  TFrmToday = class(TForm)
    Panel1: TPanel;
    Label5: TLabel;
    CbDept: TComboBox;
    Label1: TLabel;
    DTPDate: TDateTimePicker;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    BtnExit: TBitBtn;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure CbDeptChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmToday: TFrmToday;

implementation

uses DGSDM, MyCommon, GSMAIN;

{$R *.DFM}

procedure TFrmToday.FormShow(Sender: TObject);
begin
  CbDept.Items.Assign(MyGsNo);
  DateSeparator := '-';
  DTPDate.DateTime := Now;
  if CbDept.Items.Count>0 Then
    CbDept.ItemIndex := 0;
  CbDeptChange(Sender);
end;

procedure TFrmToday.CbDeptChange(Sender: TObject);
begin
  with DM_GSGL do
  begin
    if QryGzxmByBm.Active=true then
      QryGzxmByBm.Close;
    QryGzxmByBm.Prepare;
    if CbDept.Items.Count=0 then
      QryGzxmByBm.ParamByName('pbmbh').AsString:='NoBm'
    else
      QryGzxmByBm.ParamByName('pbmbh').AsString:=Copy(MyGsBm[CbDept.ItemIndex],1,2);
    QryGzxmByBm.Open;
  end;
end;

procedure TFrmToday.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with DM_GSGL do
  begin
    if QryGzxmByBm.Active=True then
      QryGzxmByBm.Close;
    if QryTodayByBm.Active=True then
      QryTodayByBm.Close;
  end;
end;

procedure TFrmToday.BitBtn1Click(Sender: TObject);
begin
  if CbDept.Items.Count=0 then
  begin
    MessageDlg('请先选择部门。',mtError, [mbYes],0);
    exit;
  end;
  with DM_GSGL do
  begin
    if (QryTodayByBm.Active = True) Then
      QryTodayByBm.Close;
    QryTodayByBm.Prepare;
    QryTodayByBm.ParamByName('pbmbh').AsString := MyGsBm[CbDept.ItemIndex]+'%';
    QryTodayByBm.ParamByName('prq').AsString := FormatDateTime('yyyymmdd',DTPDate.Date);
    QryTodayByBm.Open;
  end;

end;

end.