unitsyslog.pas

来自「自己做过的工程」· PAS 代码 · 共 78 行

unit unitsyslog;

interface

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

type
  Tformsyslog = class(TForm)
    Panel1: TPanel;
    DataSourcesyslog: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    cbox_user: TComboBox;
    dtp_loggingtime: TDateTimePicker;
    but_query: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    StaticText1: TStaticText;
    procedure Panel1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure but_queryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formsyslog: Tformsyslog;

implementation
      uses unitDMHotel;
{$R *.dfm}

procedure Tformsyslog.Panel1Click(Sender: TObject);
begin

end;

//显示窗口时的初始设置
procedure Tformsyslog.FormShow(Sender: TObject);
var
    bopen:boolean;
begin
    //初始化下拉列表框cbox_user
    bOpen:=DMHotel.ds_sys_user.Active;
    if not bOpen then
        DMHotel.ds_sys_user.Open
    else
        DMHotel.ds_sys_user.First;

    while not DMHotel.ds_sys_user.Eof do
    begin
        cbox_user.Items.Add(DMHotel.ds_sys_user.FieldValues['username']);
        DMHotel.ds_sys_user.Next;
    end;
    if not bOpen then
        DMHotel.ds_sys_user.Close;
    //设置初始时间（取系统时间）
    dtp_loggingtime.Date:=date;

    DMHotel.SetSyslogView(cbox_user.Text,dtp_loggingtime.Date);
end;

procedure Tformsyslog.but_queryClick(Sender: TObject);
var
    date1:TDate;
begin
    date1:=dtp_loggingtime.Date;
    DMHotel.SetSyslogView(cbox_user.Text,date1);
end;

end.