productcontrol.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 272 行

unit ProductControl;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModuleControl, ActnList, Menus, ImgList, ADODB, DB, StdCtrls,
   fcButton, fcImgBtn, fcShapeBtn, fcClearPanel, fcButtonGroup, Buttons,
   ExtCtrls;

type
   TfrmProductControl = class(TfrmModuleControl)
    actWCI_mj: TAction;
      actWholeCourseSearch: TAction;
    acTechSort: TAction;
    actWCI_cy: TAction;
    actWCI_LS: TAction;
    actWCI_XK: TAction;
    actWCI_YZ: TAction;
    actWCI_SP: TAction;
    actWCI_PQ: TAction;
    actWCI_leiS: TAction;
    actWCI_DJ: TAction;
    actWCI_DDFC: TAction;
    actWCI_DDHC: TAction;
    actWCI_LK: TAction;
    actWCI_ChenP: TAction;
    actWCI_YS: TAction;
    acHthQry: TAction;
    acProdTech: TAction;
    acTechQry: TAction;
    acHthDepre: TAction;
    acHthDepreQry: TAction;
    act1: TAction;
    act2: TAction;
    act3: TAction;
    act4: TAction;
    act5: TAction;
      procedure actWCI_mjExecute(Sender: TObject);
      procedure FormCreate(Sender: TObject);
    procedure actWCI_cyExecute(Sender: TObject);
    procedure actWCI_LSExecute(Sender: TObject);
    procedure actWCI_XKExecute(Sender: TObject);
    procedure actWCI_SPExecute(Sender: TObject);
    procedure actWCI_PQExecute(Sender: TObject);
    procedure actWCI_leiSExecute(Sender: TObject);
    procedure actWCI_DJExecute(Sender: TObject);
    procedure actWCI_DDFCExecute(Sender: TObject);
    procedure actWCI_DDHCExecute(Sender: TObject);
    procedure actWCI_LKExecute(Sender: TObject);
    procedure actWCI_YZExecute(Sender: TObject);
    procedure actWCI_ChenPExecute(Sender: TObject);
    procedure actWCI_YSExecute(Sender: TObject);
    procedure actWholeCourseSearchExecute(Sender: TObject);
    procedure acHthQryExecute(Sender: TObject);
    procedure acTechSortExecute(Sender: TObject);
    procedure acHthTypeExecute(Sender: TObject);
    procedure acTechExecute(Sender: TObject);
    procedure acProdTechExecute(Sender: TObject);
    procedure acTechQryExecute(Sender: TObject);
    procedure acHthDepreExecute(Sender: TObject);
    procedure acHthDepreQryExecute(Sender: TObject);
    procedure act1Execute(Sender: TObject);
    procedure act2Execute(Sender: TObject);
    procedure act3Execute(Sender: TObject);
    procedure act4Execute(Sender: TObject);
    procedure act5Execute(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   frmProductControl: TfrmProductControl;

implementation

uses WholeCourseInput, Global, WCI_mj, WCI_cy, WCI_LS, WCI_XK,
  WCI_SP, WCI_PQ, WCI_LeiS, WCI_DJ, WCI_DDFC, WCI_LK, WCI_DDHS, WCI_YZ,
  WCI_ChenP, WCI_YS, WCIDetail,pasHthQry,pasTechSort,pasHthType,pasTech,pasProdTech
  ,pasTechQry,pasHthDepre,pasHthDepreQry, htgd, frmscphb,U_qgc, thgc,
  frmcp;

{$R *.dfm}

procedure TfrmProductControl.actWCI_mjExecute(Sender: TObject);
begin
   inherited;
   ShowNormalForm(TfrmWCI_mj, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_mj));
end;

procedure TfrmProductControl.FormCreate(Sender: TObject);
begin
   inherited;
   {隐藏不需要的fcBtn}
   fcbtn4.visible := False;
   fcbtn5.visible := False;
   fcbtn6.visible := False;
   fcbtn7.visible := False;
end;

procedure TfrmProductControl.actWCI_cyExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_cy, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_cy));
end;

procedure TfrmProductControl.actWCI_LSExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_LS, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_LS));
end;

procedure TfrmProductControl.actWCI_XKExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_XK, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_XK));
end;

procedure TfrmProductControl.actWCI_SPExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_SP, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_SP));
end;

procedure TfrmProductControl.actWCI_PQExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_PQ, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_PQ));
end;

procedure TfrmProductControl.actWCI_leiSExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_LeiS, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_LeiS));
end;

procedure TfrmProductControl.actWCI_DJExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_DJ, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_DJ));
end;

procedure TfrmProductControl.actWCI_DDFCExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_DDFC, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_DDFC));
end;

procedure TfrmProductControl.actWCI_DDHCExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_DDHS, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_DDHS));
end;

procedure TfrmProductControl.actWCI_LKExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_LK, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_LK));
end;

procedure TfrmProductControl.actWCI_YZExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_YZ, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_YZ));
end;

procedure TfrmProductControl.actWCI_ChenPExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCI_ChenP, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_ChenP));
end;

procedure TfrmProductControl.actWCI_YSExecute(Sender: TObject);
begin
  inherited;
ShowNormalForm(TfrmWCI_YS, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCI_YS));
end;

procedure TfrmProductControl.actWholeCourseSearchExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmWCDetail, Self, iModuleID, (Sender as TAction).Name, TForm(frmWCDetail));
end;

procedure TfrmProductControl.acHthQryExecute(Sender: TObject);
var
    frmHthQry:TfrmHthQry;
begin
    frmHthQry:=TfrmHthQry.Create(frmHthQry);
    frmHthQry.ShowModal;
end;

procedure TfrmProductControl.acTechSortExecute(Sender: TObject);
begin
  //inherited;
    ShowNormalForm(TfrmTechSort, Self, iModuleID, (Sender as TAction).Name, TForm(frmTechSort));
end;

procedure TfrmProductControl.acHthTypeExecute(Sender: TObject);
begin
  //inherited;
    ShowNormalForm(TfrmHthType, Self, iModuleID, (Sender as TAction).Name, TForm(frmHthType));
end;

procedure TfrmProductControl.acTechExecute(Sender: TObject);
begin
  //inherited;
    ShowNormalForm(TfrmTech, Self, iModuleID, (Sender as TAction).Name, TForm(frmTech));
end;

procedure TfrmProductControl.acProdTechExecute(Sender: TObject);
begin
  //inherited;
    ShowNormalForm(TfrmProdTech, Self, iModuleID, (Sender as TAction).Name, TForm(frmProdTech));
end;

procedure TfrmProductControl.acTechQryExecute(Sender: TObject);
begin
  inherited;
    ShowNormalForm(TfrmTechQry, Self, iModuleID, (Sender as TAction).Name, TForm(frmTechQry));
end;

procedure TfrmProductControl.acHthDepreExecute(Sender: TObject);
begin
    ShowNormalForm(TfrmHthDepre, Self, iModuleID, (Sender as TAction).Name, TForm(frmHthDepre));
end;

procedure TfrmProductControl.acHthDepreQryExecute(Sender: TObject);
begin
  inherited;
    ShowNormalForm(TfrmHthDepreQry, Self, iModuleID, (Sender as TAction).Name, TForm(frmHthDepreQry));
end;

procedure TfrmProductControl.act1Execute(Sender: TObject);
begin
 // inherited;
   scphb:=Tscphb.Create(Application);
   scphb.Show;
end;

procedure TfrmProductControl.act2Execute(Sender: TObject);
begin
 // inherited;
   frmhtgd:=Tfrmhtgd.Create(Application);
   frmhtgd.Show;
end;

procedure TfrmProductControl.act3Execute(Sender: TObject);
begin
     F_qgc:=TF_qgc.Create(Application);
   F_qgc.Show;

end;

procedure TfrmProductControl.act4Execute(Sender: TObject);
begin
 // inherited;
   htgx:=Thtgx.Create(Application);
   htgx.Show;
end;

procedure TfrmProductControl.act5Execute(Sender: TObject);
begin
inherited;
    ShowNormalForm(TfrmWholeCourseInput1, Self, iModuleID, (Sender as TAction).Name, TForm(frmWholeCourseInput1));
end;

end.