uvipcard.pas

在打沙场用的最简单

unit uvipcard;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseInfo, Menus, ActnList, DB, DBClient, Grids, DBGridEh,
  StdCtrls, wwdblook, Buttons, ToolWin, ComCtrls, ExtCtrls, FR_DSet,
  FR_DBSet, FR_Class, FR_Desgn, ADODB, PDJComEdit, wwdbdatetimepicker,
  Mask, wwdbedit;

type
  Tfrmvipcard = class(TfmBaseinfo)
    CDSbaseinfofid: TAutoIncField;
    CDSbaseinfofcode: TWideStringField;
    CDSbaseinfofname: TWideStringField;
    CDSbaseinfofserver: TBCDField;
    CDSbaseinfofproduce: TBCDField;
    CDSbaseinfofnote: TWideStringField;
    paneltitle: TPanel;
    formTitle: TLabel;
    spbtnprint: TSpeedButton;
    spbtnprior: TSpeedButton;
    spbtnnext: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Label3: TLabel;
    refno: TwwDBEdit;
    paneledit: TPanel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBEdit1: TwwDBEdit;
    wwDBEdit4: TwwDBEdit;
    wwDBEdit5: TwwDBEdit;
    wwDBEdit8: TwwDBEdit;
    billno: TwwDBEdit;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    PDJComEdit1: TPDJComEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmvipcard: Tfrmvipcard;

implementation

uses Global, uvipcard_m;

{$R *.dfm}

procedure Tfrmvipcard.FormCreate(Sender: TObject);
begin
  inherited;
  Maintable:='tvipcard';
  Mainview:='vvipcard';
  Keyfield:='fid';
  ReportName:=gs_appPath+'\prints\frvipcard.frf';
  Modifyform:=Tfrmvipcard_m;
end;

end.