qxuser.pas

来自「这是一个实用的软件」· PAS 代码 · 共 63 行

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.