tctj.pas.~2~

Delphi数据库开发毕业设计指导及实例 一书的源码

unit tctj;

interface

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

type
  Ttctj_Form = class(TForm)
    Panel1: TPanel;
    cmdok: TButton;
    cmdclose: TButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    StatusBar1: TStatusBar;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tctj_Form: Ttctj_Form;

implementation

uses main;

{$R *.dfm}

procedure Ttctj_Form.cmdokClick(Sender: TObject);
var
    je,sqlstr:string;
begin
    je:='0';
    sqlstr:='select sum(je) as je from t_tcb where (lcsj>=:ksrq)and(lcsj<=:jsrq)';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.ParamByName('ksrq').AsDateTime:=DateTimePicker1.DateTime;
    Query1.ParamByName('jsrq').AsDateTime:=DateTimePicker2.DateTime;
    Query1.Open;
    je:=Query1.fieldbyname('je').AsString;
    StatusBar1.Panels[1].Text:=je;
    sqlstr:='select * from t_tcb where (lcsj>=:ksrq)and(lcsj<=:jsrq)';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    Query1.ParamByName('ksrq').AsDateTime:=DateTimePicker1.DateTime;
    Query1.ParamByName('jsrq').AsDateTime:=DateTimePicker2.DateTime;
    StatusBar1.Panels[0].Text:=inttostr(Query1.RecordCount);
end;

procedure Ttctj_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N42.Enabled:=true;
end;

procedure Ttctj_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Ttctj_Form.FormCreate(Sender: TObject);
begin
  Query1.SessionName:=MainForm.Database1.SessionName;
  Query1.DatabaseName:=MainForm.Database1.DatabaseName;
end;

end.