uworkmode.pas

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

unit uworkmode;

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;

type
  Tfrmworkmode = class(TfrmBaseinfo)
    ADOTable1: TADOTable;
    ADOTable1fid: TIntegerField;
    ADOTable1fcode: TWideStringField;
    ADOTable1fname: TWideStringField;
    ADOTable1ftaxmode: TWideStringField;
    ADOTable1ftax: TBCDField;
    ADOTable1fifwork: TBooleanField;
    ADOTable1fifworkp: TBooleanField;
    ADOTable1fnote: TWideStringField;
    CDSbaseinfofid: TIntegerField;
    CDSbaseinfofcode: TWideStringField;
    CDSbaseinfofname: TWideStringField;
    CDSbaseinfoftaxmode: TWideStringField;
    CDSbaseinfoftax: TBCDField;
    CDSbaseinfofifwork: TBooleanField;
    CDSbaseinfofifworkp: TBooleanField;
    CDSbaseinfofnote: TWideStringField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmworkmode: Tfrmworkmode;

implementation

uses Global, uworkmode_m;

{$R *.dfm}

procedure Tfrmworkmode.FormCreate(Sender: TObject);
begin
  inherited;
  Maintable:='tworkmode';
  Mainview:='vworkmode';
  Keyfield:='fid';
  ReportName:=gs_appPath+'\prints\frworkmode.frf';
  Modifyform:=Tfrmworkmode_m;
end;

end.