hint.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

unit hint;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB,
  ADODB, dxDBTLCl, dxGrClms, StdCtrls, Menus, Grids, DBGrids, Mask, DBCtrls;

type
  Tfhint = class(Tfbaseform)
    dxDBGrid1: TdxDBGrid;
    DataSource: TDataSource;
    dxDBGrid1fcode: TdxDBGridColumn;
    dxDBGrid1Ma_pcode: TdxDBGridColumn;
    dxDBGrid1Ma_pname: TdxDBGridColumn;
    dxDBGrid1Ma_yield: TdxDBGridDateColumn;
    dxDBGrid1Ma_enddate: TdxDBGridDateColumn;
    dxDBGrid1Ma_ph: TdxDBGridColumn;
    dxDBGrid1Ma_factory: TdxDBGridColumn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Label3: TLabel;
    N2: TMenuItem;
    DBEdit1: TDBEdit;
    procedure Button2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fhint: Tfhint;

implementation

uses dataform, pubdata, Global;

{$R *.dfm}

procedure Tfhint.Button2Click(Sender: TObject);
begin
  inherited;
GroupBox1.Visible:=False;
end;

procedure Tfhint.N1Click(Sender: TObject);
begin
  inherited;
GroupBox1.Visible:=True;
end;

procedure Tfhint.Button1Click(Sender: TObject);
begin
  inherited;
if fpubdata.fcount.State in [dsedit,dsinsert] then
   begin
   fpubdata.fcount.Post;
   GroupBox1.Visible:=False;
   end;
if fpubdata.fcount.FieldByName('count').Value<=0 then
   begin
   MessageBox(0, '提醒日期最少不能少于30天（1个月）！', '提示', MB_OK +
     MB_ICONINFORMATION + MB_TOPMOST);
   fpubdata.fcount.Edit;
   fpubdata.fcount.FieldByName('count').Value:=1;
   fpubdata.fcount.Post;
   end;
if fpubdata.fcount.State in [dsBrowse] then
   begin
       GroupBox1.Visible:=False;
   end;

end;

procedure Tfhint.N2Click(Sender: TObject);
begin
  inherited;
  updatedate;
 fpubdata.ADOhint.Close;
 fpubdata.ADOhint.SQL.Clear;
 fpubdata.ADOhint.SQL.Add('select * from cg_master where (Ma_enddate-Now())<( 30*'+fpubdata.qrycount.fieldbyname('count').AsString+')');
 fpubdata.ADOhint.Open;
if fpubdata.ADOhint.RecordCount=0 then
MessageBox(0, '暂无将要过期的药品！', '提示', MB_OK + MB_ICONINFORMATION + 
  MB_TOPMOST);  
end;

procedure Tfhint.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
action:=caFree;
end;

end.