qxuser.pas

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

unit Qxuser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseformtype, dxExEdtr, StdCtrls, DBCtrls, DB, ADODB, dxCntner,
  dxTL, dxDBCtrl, dxDBGrid, Mask, ComCtrls, Buttons, ToolWin, ActnList,
  ImgList, dxDBTLCl, dxGrClms;

type
  Tfqxuser = class(Tfbaseformtype)
    Label3: TLabel;
    Label4: TLabel;
    lbl2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit6: TDBEdit;
    QbaseinfoUser_code: TWideStringField;
    QbaseinfoUser_name: TWideStringField;
    QbaseinfoUser_pas: TWideStringField;
    QbaseinfoUser_sex: TWideStringField;
    QbaseinfoUser_age: TIntegerField;
    QbaseinfoUser_adds: TWideStringField;
    QbaseinfoUser_tel: TIntegerField;
    Qbaseinfofmem: TWideStringField;
    QbaseinfoUser_out: TIntegerField;
    dxDBGridUser_code: TdxDBGridColumn;
    dxDBGridUser_name: TdxDBGridColumn;
    dxDBGridUser_pas: TdxDBGridColumn;
    dxDBGridUser_sex: TdxDBGridColumn;
    dxDBGridUser_age: TdxDBGridMaskColumn;
    dxDBGridUser_adds: TdxDBGridColumn;
    dxDBGridUser_tel: TdxDBGridMaskColumn;
    dxDBGridfmem: TdxDBGridColumn;
    dxDBGridUser_out: TdxDBGridCheckColumn;
    procedure actaddExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fqxuser: Tfqxuser;

implementation

{$R *.dfm}

procedure Tfqxuser.actaddExecute(Sender: TObject);
begin
  inherited;
Qbaseinfo.FieldByName('User_out').Value:=0;
end;

end.