uuser_m.pas

这是一个三层的进销存系统

unit uuser_m;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseInfo_m, StdCtrls, Mask, wwdbedit, wwcheckbox, wwdblook, DB,
  DBClient;

const
  WM_USER_DATAGET = WM_USER+1024;

type
  Tfrmuser_m = class(Tfrmbaseinfo_m)
    Label2: TLabel;
    wwDBEdit1: TwwDBEdit;
    Label3: TLabel;
    wwDBEdit2: TwwDBEdit;
    Label4: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwCheckBox1: TwwCheckBox;
    CDSgroup: TClientDataSet;
    CDSgroupfid: TAutoIncField;
    CDSgroupfcode: TWideStringField;
    CDSgroupfname: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure Dataget(var Dataget:Tmessage);message WM_USER_DATAGET;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmuser_m: Tfrmuser_m;

implementation

uses upermiss, common;

{$R *.dfm}

procedure Tfrmuser_m.Dataget(var Dataget: Tmessage);
begin
  GetAlldata(CDSGroup,'Vgroup','Fid',20);
  Application.ProcessMessages; 
end;

procedure Tfrmuser_m.FormCreate(Sender: TObject);
begin
  inherited;
  Maintable:='tuser';
  Masterfield:='fusercode';
end;

procedure Tfrmuser_m.FormShow(Sender: TObject);
begin
  inherited;
  postmessage(handle,WM_USER_DATAGET,0,0);
end;

procedure Tfrmuser_m.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  frmuser_m:=nil;
end;

end.