unit_remind.pas

来自「一个不错的源程序DELPHI开发的,功能比较好的客户管理系统」· PAS 代码 · 共 80 行

//------------------------------------------------------------
//      作者:曾庆顺
//      模块:系统提示窗口
//      时间：2002.09.11
//      功能介绍：系统登陆时进行提示
//-----------------------------------------------------------
unit Unit_REMIND;

interface

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

type
  TFrm_REMIND = class(TForm)
    Panel2: TPanel;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Query2: TQuery;
    Query1CITYNO: TStringField;
    Query1OFF_NO_HOME: TFloatField;
    Query1WK_NO: TStringField;
    Query1REMIND_TYPE: TFloatField;
    Query1REMIND: TStringField;
    Query1SMS_FLAG: TFloatField;
    Query1SEND_TIME: TDateTimeField;
    Query1typename: TStringField;
    procedure Query1CalcFields(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_REMIND: TFrm_REMIND;

implementation
uses
  main;
{$R *.DFM}

procedure TFrm_REMIND.Query1CalcFields(DataSet: TDataSet);
begin
//
end;

procedure TFrm_REMIND.FormShow(Sender: TObject);
var
  Str :string;
begin
  query1.close;
  Str :='select a.* from T_Q_REMIND a where '
  +' cityno='+#39+ps_cityno+#39
  +' and off_no_home='+inttostr(jx)
  +' and WK_NO='+#39+GH+#39;

  query1.sql.text :=Str;
  query1.open;
end;

procedure TFrm_REMIND.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action :=cafree;
end;

procedure TFrm_REMIND.Button1Click(Sender: TObject);
begin
  close;
end;

end.