xukezheng.pas

本系统为演示Delphi的功能而开发设计

unit xukezheng;

interface

uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, Grids, DBGrids, ComCtrls, Spin;

type
  TXukeForm = class(TForm)
    ButtonStatic: TButton;
    ButtonClose: TButton;
    DBGrid1: TDBGrid;
    RadioButDate: TRadioButton;
    DateTimePickerDate: TDateTimePicker;
    RadioBtnPeriod: TRadioButton;
    DateTimePickerTo: TDateTimePicker;
    DateTimePickerFrom: TDateTimePicker;
    Label1: TLabel;
    procedure ButtonCloseClick(Sender: TObject);
    procedure ButtonStaticClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure RadioButDateClick(Sender: TObject);
    procedure RadioBtnPeriodClick(Sender: TObject);
    procedure DateTimePickerFromChange(Sender: TObject);
    procedure DateTimePickerToChange(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XukeForm: TXukeForm;

implementation
uses huaxia, ErrorHit;
{$R *.DFM}

procedure TXukeForm.ButtonCloseClick(Sender: TObject);
begin
Try
HuaXiaData.TableCompSet.Active:=False;
Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;


procedure TXukeForm.ButtonStaticClick(Sender: TObject);
begin
Try
If RadioButDate.Checked=True Then
   Begin
   With HuaXiaData.QueryCompSet Do
        Begin
        Close;
        Unprepare;
        With Sql Do
             Begin
             Clear;
             Add('Select * From comp_info Where licence_date>:datefrom and licence_date<:dateto');
             End;
        RequestLive:=True;
        ParamByName('datefrom').AsDateTime:=DateTimePickerDate.DateTime;
        ParamByName('dateto').AsDateTime:=DateTimePickerDate.DateTime+1;
        Prepare;
        Open;
       End;
   End
 Else
   Begin
   With HuaXiaData.QueryCompSet Do
        Begin
        Close;
        Unprepare;
        With Sql Do
             Begin
             Clear;
             Add('Select * From comp_info Where licence_date>:datefrom and licence_date<:dateto');
             End;
        RequestLive:=True;
        ParamByName('datefrom').AsDateTime:=DateTimePickerFrom.datetime;
        ParamByName('dateto').AsDateTime:=DateTimePickerTo.datetime+1;
        Prepare;
        Open;
       End;
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;



procedure TXukeForm.FormActivate(Sender: TObject);
begin
RadioButDate.Checked:=True;
DateTimePickerDate.DateTime:=Date;
DateTimePickerTo.DateTime:=Date;
DateTimePickerFrom.DateTime:=Date;
DateTimePickerDate.Checked:=True;
DateTimePickerTo.Checked:=False;
DateTimePickerFrom.Checked:=False;
Try
With HuaXiaData.QueryCompSet Do
     Begin
     Close;
     Unprepare;
     With Sql Do
          Begin
          Clear;
          Add('Select * From comp_info');
          End;
     RequestLive:=True;
     Prepare;
     Open;
     End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;


procedure TXukeForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  End;

end;

procedure TXukeForm.RadioButDateClick(Sender: TObject);
begin
Try
DateTimePickerDate.DateTime:=Date;
DateTimePickerTo.DateTime:=Date;
DateTimePickerFrom.DateTime:=Date;
If RadioButDate.Checked=True Then
   Begin
   DateTimePickerDate.Enabled:=True;
   DateTimePickerTo.Enabled:=False;
   DateTimePickerFrom.Enabled:=False;
   End
   Else
   Begin
   DateTimePickerDate.Enabled:=False;
   DateTimePickerTo.Enabled:=True;
   DateTimePickerFrom.Enabled:=True;
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TXukeForm.RadioBtnPeriodClick(Sender: TObject);
begin
Try
DateTimePickerDate.DateTime:=Date;
DateTimePickerTo.DateTime:=Date;
DateTimePickerFrom.DateTime:=Date;
If RadioButDate.Checked=True Then
   Begin
   DateTimePickerDate.Enabled:=True;
   DateTimePickerTo.Enabled:=False;
   DateTimePickerFrom.Enabled:=False;
   End
   Else
   Begin
   DateTimePickerDate.Enabled:=False;
   DateTimePickerTo.Enabled:=True;
   DateTimePickerFrom.Enabled:=True;
   End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TXukeForm.DateTimePickerFromChange(Sender: TObject);
begin
If DateTimePickerFrom.DateTime>DateTimePickerTo.DateTime Then
   Begin
   ErrorForm.ShowModal;
   ActiveControl:=ButtonClose;
   End;

end;

procedure TXukeForm.DateTimePickerToChange(Sender: TObject);
begin
If DateTimePickerFrom.DateTime>DateTimePickerTo.DateTime Then
   Begin
   ErrorForm.ShowModal;
   ActiveControl:=ButtonClose;
   End;

end;

end.