uinitcp.pas

来自「DELPHI做的制衣厂管理系统,功能完善,可能马上使用,SQL2000数据库」· PAS 代码 · 共 192 行

unit uInitCp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBasic, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, ComCtrls, cxGridLevel, cxClasses,
  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, ToolWin, jpeg, ExtCtrls, DBClient, StdCtrls;

type
  TfrmBasicInitCp = class(TfrmBasic)
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    cdCp: TClientDataSet;
    dsCp: TDataSource;
    cdHCp: TClientDataSet;
    dsHCp: TDataSource;
    cdStock: TClientDataSet;
    dsStock: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    cxGrid2: TcxGrid;
    GridCpInit: TcxGridDBTableView;
    GridCpInitDBColumn1: TcxGridDBColumn;
    GridCpInitDBColumn2: TcxGridDBColumn;
    GridCpInitDBColumn3: TcxGridDBColumn;
    GridCpInitDBColumn4: TcxGridDBColumn;
    GridCpInitDBColumn5: TcxGridDBColumn;
    GridCpInitDBColumn6: TcxGridDBColumn;
    GridCpInitDBColumn7: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    TabSheet2: TTabSheet;
    cxGrid1: TcxGrid;
    GridHCpInit: TcxGridDBTableView;
    GridHCpInitDBColumn1: TcxGridDBColumn;
    GridHCpInitDBColumn2: TcxGridDBColumn;
    GridHCpInitDBColumn3: TcxGridDBColumn;
    GridHCpInitDBColumn4: TcxGridDBColumn;
    GridHCpInitDBColumn6: TcxGridDBColumn;
    GridHCpInitDBColumn5: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    TabSheet3: TTabSheet;
    cxGrid3: TcxGrid;
    GridStockInit: TcxGridDBTableView;
    GridStockInitDBColumn1: TcxGridDBColumn;
    GridStockInitDBColumn2: TcxGridDBColumn;
    GridStockInitDBColumn3: TcxGridDBColumn;
    GridStockInitDBColumn4: TcxGridDBColumn;
    GridStockInitDBColumn5: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    ToolButton5: TToolButton;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
     function Ischange(cdTem: TclientDataSet):boolean;
     procedure ActiveData(cdTem: TclientDataSet);
  protected
    procedure init();Override;
    procedure CloseDestory();Override;

  public
    { Public declarations }
  end;

var
  frmBasicInitCp: TfrmBasicInitCp;

implementation

uses
   uGlobal, uPublic, uMain;

{$R *.dfm}

procedure TfrmBasicInitCp.ToolButton4Click(Sender: TObject);
begin
  inherited;
   case pageControl1.ActivePageIndex of
      0: cancelUpdateData(cdStock);
      1: cancelUpdateData(cdHcp);
      2: cancelUpdateData(cdCp);
   end;
end;

procedure TfrmBasicInitCp.ToolButton5Click(Sender: TObject);
begin
  inherited;
   CloseCm;
end;

procedure TfrmBasicInitCp.ToolButton3Click(Sender: TObject);
begin
  inherited;
   case pageControl1.ActivePageIndex of
      0: deleteRecordData(cdStock);
      1: deleteRecordData(cdHcp);
      2: deleteRecordData(cdCp);
   end;
end;

procedure TfrmBasicInitCp.ToolButton2Click(Sender: TObject);
begin
  inherited;
   case pageControl1.ActivePageIndex of
      0: ApplyUpdateData(cdStock);
      1: ApplyUpdateData(cdHcp);
      2: ApplyUpdateData(cdCp);
   end;
end;

procedure TfrmBasicInitCp.ToolButton1Click(Sender: TObject);
begin
  inherited;
   case pageControl1.ActivePageIndex of
      0: InsertRecordData(cdStock);
      1: InsertRecordData(cdHcp);
      2: InsertRecordData(cdCp);
   end;
end;

procedure TfrmBasicInitCp.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  inherited;
   case pageControl1.ActivePageIndex of
      0: AllowChange := Ischange(cdStock);
      1: AllowChange := Ischange(cdHcp);
      2: AllowChange := Ischange(cdCp);
   end;
end;

function TfrmBasicInitCp.Ischange(cdTem: TclientDataSet): boolean;
begin
   result := true;
   if cdTem.State in [dsInsert,dsEdit] then
      cdTem.Post;
   if cdTem.ChangeCount > 0 then begin
      if QueryWnd('数据已更改,继续吗?'+#13+#13+
                  '按[是]取消更改并转到下页'+#13+
                  '按[否]返回当前页面') then begin
         cancelUpdateData(cdTem);
         exit;
      end;
      result := false;
   end;
end;

procedure TfrmBasicInitCp.ActiveData(cdTem: TclientDataSet);
begin
   if cdTem.Active then
      exit;
   cdTem.Open;
end;

procedure TfrmBasicInitCp.PageControl1Change(Sender: TObject);
begin
  inherited;
   case pageControl1.ActivePageIndex of
      0: ActiveData(cdStock);
      1: ActiveData(cdHcp);
      2: ActiveData(cdCp);
   end;
end;

procedure TfrmBasicInitCp.CloseDestory;
begin
  inherited;

end;

procedure TfrmBasicInitCp.init;
begin
  inherited;
   pageControl1.ActivePageIndex := 0;
end;

end.