bas200_17.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Bas200_17;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, dxExEdtr, StdCtrls, Buttons, ExtCtrls, jpeg,
  dxDBCtrl, dxDBGrid, Wwdotdot, Mask, wwdbedit, Wwdbcomb, Grids, Wwdbigrd,
  Wwdbgrid, DBCtrls, ComCtrls, dxTL, dxDBTLCl, dxGrClms, dxCntner, Menus,
  ActnList, DB, ADODB;

type
  TBas200_17Form = class(TBas100_01Form)
    PageControl1: TPageControl;
    tsStart: TTabSheet;
    lblStart1: TLabel;
    tsFinish: TTabSheet;
    lblFinish1: TLabel;
    lblFinish2: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Bevel1: TBevel;
    bbtnBack: TBitBtn;
    bbtnNext: TBitBtn;
    bbtnExit: TBitBtn;
    ActCheckValue: TActionList;
    ActSetValue: TActionList;
    ActSetPage0: TAction;
    ActCheckPage0: TAction;
    lblStart2: TLabel;
    ADOQuery1: TADOQuery;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnBackClick(Sender: TObject);
    procedure bbtnNextClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure ActSetPage0Execute(Sender: TObject);
    procedure ActCheckPage0Execute(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
  private
    AFinish,ANext:String;
    { Private declarations }
  public
    { Public declarations }
  protected
    AMode,AOldCode:String;
    APageCount:Integer;
    procedure SetInterface; virtual;
    procedure GetDataInfo; virtual;
    procedure SetEmptyInit; virtual;
    procedure InsertInit; virtual;
  end;

var
  Bas200_17Form: TBas200_17Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TBas200_17Form.SetInterface;
begin
  Caption:=GetDBString('COM00009001');  //设置向导
  bbtnBack.Caption:=GetDBString('COM00009002');  //上一步(&B)
  bbtnNext.Caption:=GetDBString('COM00009003');  //下一步(&N)
  bbtnExit.Caption:=GetDBString('COM00009004');  //退出(&X)
  lblStart1.Caption:=GetDBString('COM00009005');  //设置向导会帮助您正确设置各种条件。
  lblStart2.Caption:=GetDBString('COM00009006');  //要继续，请单击“下一步”。
  lblFinish1.Caption:=GetDBString('COM00009007');  //您已经成功的设置了下列信息：
  lblFinish2.Caption:=GetDBString('COM00009008');  //单击“完成”，将保存该信息设置。
  AFinish:=GetDBString('COM00009009');  //完成
  ANext:=bbtnNext.Caption;  //下一步(&N)
  PageControl1.ActivePageIndex:=0;
end;

procedure TBas200_17Form.FormCreate(Sender: TObject);
begin
  inherited;
  ActSetValue.Actions[0].Execute
end;

procedure TBas200_17Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TBas200_17Form.bbtnBackClick(Sender: TObject);
begin
  inherited;
//上一步(&B)
  try
    Screen.Cursor:=crHourGlass;
    PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex-1;
    bbtnBack.Enabled:=PageControl1.ActivePageIndex<>0;
    if PageControl1.ActivePageIndex=APageCount-1 then
      bbtnNext.Caption:=AFinish  //完成
    else
      bbtnNext.Caption:=ANext;  //下一步(&N)
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure TBas200_17Form.bbtnNextClick(Sender: TObject);
begin
  inherited;
//下一步(&N)
  try
    Screen.Cursor:=crHourGlass;
    ActCheckValue.Actions[PageControl1.ActivePageIndex].Execute;
    if PageControl1.ActivePageIndex=APageCount-1 then
    begin
      ModalResult:=1;
      Exit;
    end;
    PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex+1;
    bbtnBack.Enabled:=PageControl1.ActivePageIndex<>0;
    if PageControl1.ActivePageIndex=APageCount-1 then
      bbtnNext.Caption:=AFinish  //完成
    else
      bbtnNext.Caption:=ANext;  //下一步(&N)
    ActSetValue.Actions[PageControl1.ActivePageIndex].Execute;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure TBas200_17Form.bbtnExitClick(Sender: TObject);
begin
  inherited;
//退出(&X)
  Close;
end;

procedure TBas200_17Form.ActSetPage0Execute(Sender: TObject);
begin
  inherited;
  SetInterface;
end;

procedure TBas200_17Form.ActCheckPage0Execute(Sender: TObject);
begin
  inherited;
//
end;

procedure TBas200_17Form.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  inherited;
  AOldCode:='';
  if ADOQuery1.State in [dsInsert,dsEdit] then Exit;
  if ADOQuery1.IsEmpty then
  begin
    SetEmptyInit;  //初始化
    Exit;
  end;
  if AMode='ADD' then
  begin
    InsertInit;
    Exit;
  end;
  GetDataInfo;  //取得界面信息
end;

procedure TBas200_17Form.GetDataInfo;
begin
end;

procedure TBas200_17Form.InsertInit;
begin
end;

procedure TBas200_17Form.SetEmptyInit;
begin
end;

end.