uinitcp.pas

delphi 源代码 界面上模仿了在2ccc.com网站发布的某一个程序.数据库为SQL2000。

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.