look_log_un.pas

布林电话收费管理系统

unit look_log_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, stand_un, BusinessSkinForm, bsSkinCtrls, StdCtrls, Mask,
  bsSkinBoxCtrls,db, bsSkinGrids, bsDBGrids, bsMessages;

type
  Tlook_log = class(Tstand)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinXFormButton4: TbsSkinXFormButton;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinXFormButton2: TbsSkinXFormButton;
    bsSkinXFormButton3: TbsSkinXFormButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinLabel10: TbsSkinLabel;
    bsSkinDateEdit3: TbsSkinDateEdit;
    bsSkinDateEdit4: TbsSkinDateEdit;
    bsSkinEdit10: TbsSkinEdit;
    procedure bsSkinXFormButton3Click(Sender: TObject);
    procedure bsSkinXFormButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinXFormButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  look_log: Tlook_log;
  da1:tdatasource;
implementation
  uses globe,dm_un,main_un;
{$R *.dfm}

procedure Tlook_log.bsSkinXFormButton3Click(Sender: TObject);
begin
  inherited;
  bsskinedit10.Clear;
  bsskindateedit3.Date:=now;
  bsskindateedit4.Date:=now;
end;

procedure Tlook_log.bsSkinXFormButton2Click(Sender: TObject);
begin
  inherited;
   dm:=tdm.Create(nil);
  if bsskinedit10.Text <>'' then
   begin
    with dm do
     begin
      q_a.Close;
      q_a.SQL.Clear;
      q_a.SQL.Add('select log_xh  as 操作序号,log_nr as 操作内容,');
      q_a.SQL.Add('log_id as 操作员工号,log_time as 操作时间,');
      q_a.SQL.Add('log_je as 金额,log_mark as 结帐标志 from tel_log');
      q_a.SQL.Add('where log_id=:log_id and log_time>=:log_time1 and log_time<=:log_time2 ');
      q_a.Parameters.ParamByName('log_id').Value:=bsskinedit10.Text;
      q_a.Parameters.ParamByName('log_time1').Value:=strtodatetime(bsskindateedit3.Text +' 00:00:00');
      q_a.Parameters.ParamByName('log_time2').Value:=strtodatetime(bsskindateedit4.Text +' 23:59:59');
      q_a.Prepared;
      q_a.Open;
     end;
     da1:=tdatasource.Create(nil);
     da1.DataSet:=dm.q_a;
     bsskindbgrid1.DataSource:=da1;
   end
  else
   begin
    with dm do
     begin
      q_a.Close;
      q_a.SQL.Clear;
      q_a.SQL.Add('select log_xh  as 操作序号,log_nr as 操作内容,');
      q_a.SQL.Add('log_id as 操作员工号,log_time as 操作时间,');
      q_a.SQL.Add('log_je as 金额,log_mark as 结帐标志 from tel_log');
      q_a.SQL.Add('where log_time>=:log_time1 and log_time<=:log_time2 ');
      q_a.Parameters.ParamByName('log_time1').Value:=strtodatetime(bsskindateedit3.Text +' 00:00:00');
      q_a.Parameters.ParamByName('log_time2').Value:=strtodatetime(bsskindateedit4.Text +' 23:59:59');
      q_a.Prepared;
      q_a.Open;
     end;
     da1:=tdatasource.Create(nil);
     da1.DataSet:=dm.q_a;
     bsskindbgrid1.DataSource:=da1;
   end;
end;

procedure Tlook_log.FormCreate(Sender: TObject);
begin
  inherited;
  bsskinedit10.Text:=user_id;
  bsskindateedit3.Date :=now;
  bsskindateedit4.Date :=now;
  dm:=tdm.Create(nil);
    with dm do
     begin
      q_a.Close;
      q_a.SQL.Clear;
      q_a.SQL.Add('select log_xh  as 操作序号,log_nr as 操作内容,');
      q_a.SQL.Add('log_id as 操作员工号,log_time as 操作时间,');
      q_a.SQL.Add('log_je as 金额,log_mark as 结帐标志 from tel_log');
      q_a.SQL.Add('where log_id=:log_id and log_time>=:log_time1 and log_time<=:log_time2  ');
      q_a.Parameters.ParamByName('log_id').Value:=bsskinedit10.Text;
      q_a.Parameters.ParamByName('log_time1').Value:=strtodatetime(bsskindateedit3.Text +' 00:00:00');
      q_a.Parameters.ParamByName('log_time2').Value:=strtodatetime(bsskindateedit4.Text +' 23:59:59');
      q_a.Prepared;
      q_a.Open;
     end;
     da1:=tdatasource.Create(nil);
     da1.DataSet:=dm.q_a;
     bsskindbgrid1.DataSource:=da1;
end;

procedure Tlook_log.bsSkinXFormButton4Click(Sender: TObject);
begin
  inherited;
 close;
end;

end.