baseinfo.pas

一款不错的商务程序商品管理系统,有简易的窗体皮肤

unit BaseInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Grids, DBGrids, DB, ADODB, Theme;

type
  TFrm_Base = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    PageControl1: TPageControl;
    TabProduct: TTabSheet;
    GridProduct: TDBGrid;
    ADOBase: TADODataSet;
    DSBase: TDataSource;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    DBGrid2: TDBGrid;
    TabSheet3: TTabSheet;
    DBGrid3: TDBGrid;
    TabSheet4: TTabSheet;
    DBGrid4: TDBGrid;
    TabSheet5: TTabSheet;
    DBGrid5: TDBGrid;
    TabSheet6: TTabSheet;
    DBGrid6: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure ActivePage;
  public
    { Public declarations }
  end;

var
  Frm_Base: TFrm_Base;
  PageActive:Integer;

implementation
uses Main,dm;
{$R *.dfm}

procedure TFrm_Base.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
  ActiveForm:=nil;
end;

procedure TFrm_Base.ToolButton1Click(Sender: TObject);
begin
  ADOBase.Append;
end;

procedure TFrm_Base.ToolButton3Click(Sender: TObject);
begin
  if (ADOBase.RecordCount>0) and (Application.MessageBox('您确定要删除此记录吗？', '明日科技',
    MB_OKCANCEL) = IDOK )then
  begin
    ADOBase.Delete;
    ADOBase.UpdateBatch;
  end;


end;

procedure TFrm_Base.ToolButton5Click(Sender: TObject);
begin
  ADOBase.UpdateBatch;
end;

procedure TFrm_Base.ToolButton6Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Base.ActivePage;
begin
  ADOBase.Active:=False;
  case PageControl1.ActivePageIndex of
  0 :begin
       ADOBase.CommandText:='Select * From MR_Product_Tab order by MR_ID';
     end;
  1 :begin
       ADOBase.CommandText:='Select * From MR_Type_Tab order by MR_ID';
     end;
  2: begin
       ADOBase.CommandText:='select * from MR_Source_Tab order by MR_ID';
     end;
  3: begin
       ADOBase.CommandText:='select * from MR_Dept_Tab order by MR_ID';
     end;
  4: begin
       ADOBase.CommandText:='select * from MR_Area_Tab order by MR_ID';
     end;
  5: begin
       ADOBase.CommandText:='select * from MR_Relat_Tab order by MR_ID';
     end;
  6: begin
       ADOBase.CommandText:='select * from MR_Duty_Tab order by MR_ID';
     end;
  end;
  ADOBase.Active:=True;
end;

procedure TFrm_Base.PageControl1Change(Sender: TObject);
begin
  ActivePage;
end;

procedure TFrm_Base.FormShow(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=PageActive;
  ActivePage;
end;

end.