ufrmian.pas

来自「工廠採購管理系統」· PAS 代码 · 共 940 行 · 第 1/2 页

unit ufrmian;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzSplit, ComCtrls, ToolWin, ExtCtrls, Menus, XPMan,
  StdActns, ActnList, ImgList, RzGroupBar, RzStatus, WinSkinData, ADODB, DB,
  jpeg, StdCtrls,shellapi, ScrollText, SkinCaption;

type
  Tfrmmain = class(TForm)
    ImageList3: TImageList;
    ImageList2: TImageList;
    pruchase: TActionList;
    FileExit1: TAction;
    HelpAbout1: TAction;
    material_class: TAction;
    product_class: TAction;
    area_manager: TAction;
    country: TAction;
    bb: TAction;
    unit_manager: TAction;
    development: TAction;
    payment: TAction;
    transport_dw: TAction;
    EMail: TAction;
    Help: TAction;
    product_info: TAction;
    material_info: TAction;
    customer_info: TAction;
    supplier_info: TAction;
    print: TAction;
    qq: TAction;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    fclassname: TMenuItem;
    N2: TMenuItem;
    N8: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N9: TMenuItem;
    N5: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N35: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N47: TMenuItem;
    QQ1: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N48: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N43: TMenuItem;
    N42: TMenuItem;
    N46: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    Panel1: TPanel;
    Panel2: TPanel;
    RzSizePanel1: TRzSizePanel;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    RzGroup4: TRzGroup;
    RzStatusBar1: TRzStatusBar;
    RzStatusPane1: TRzStatusPane;
    RzStatusPane2: TRzStatusPane;
    RzStatusPane3: TRzStatusPane;
    RzStatusPane4: TRzStatusPane;
    RzStatusPane5: TRzStatusPane;
    Image1: TImage;
    SkinData1: TSkinData;
    ImageList1: TImageList;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N25: TMenuItem;
    N31: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    RzGroup2: TRzGroup;
    RzGroup3: TRzGroup;
    RzGroup5: TRzGroup;
    cgdd_zz: TAction;
    cgdd_lb: TAction;
    cgjh_lr: TAction;
    cgjh_lb: TAction;
    gysbj_lr: TAction;
    gysbj_lb: TAction;
    wljg_db: TAction;
    ddzxqkcx: TAction;
    ddshqk: TAction;
    wlkc_dt: TAction;
    thtzd_lr: TAction;
    thgl_lb: TAction;
    qtcgjh_lr: TAction;
    N23: TMenuItem;
    N57: TMenuItem;
    N62: TMenuItem;
    sccgxq: TAction;
    cgwlxq: TAction;
    N63: TMenuItem;
    N64: TMenuItem;
    N24: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N65: TMenuItem;
    cgwltj: TAction;
    gysdd: TAction;
    N66: TMenuItem;
    wlxqtj: TAction;
    wdwltj: TAction;
    N67: TMenuItem;
    wlkc_zt: TAction;
    xqwcqk: TAction;
    sdf1: TMenuItem;
    employer: TAction;
    s1: TMenuItem;
    backup: TAction;
    restore: TAction;
    RzGroup6: TRzGroup;
    PrintDialog1: TPrintDialog;
    dateql: TAction;
    qxsz: TAction;
    user_manager: TAction;
    user_password: TAction;
    about: TAction;
    RzGroup7: TRzGroup;
    company: TAction;
    ADOQuery1: TADOQuery;
    wclwl: TAction;
    N49: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    wlbj: TAction;
    N56: TMenuItem;
    wsbg: TAction;
    wshj: TAction;
    user_log: TAction;
    N68: TMenuItem;
    N69: TMenuItem;
    link_worker: TAction;
    tianya: TAction;
    N70: TMenuItem;
    N71: TMenuItem;
    wlth: TAction;
    wlty: TAction;
    N72: TMenuItem;
    material_gys: TAction;
    N73: TMenuItem;
    gysgywl: TAction;
    N74: TMenuItem;
    xqwcjd: TAction;
    gdwcqk: TAction;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    xqwcjs: TAction;
    N78: TMenuItem;
    Timer1: TTimer;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton5: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ScrollText1: TScrollText;
    SkinCaption1: TSkinCaption;
    profession: TAction;
    N79: TMenuItem;
    wlbdap: TAction;
    N80: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    wbgwl: TAction;
    RzGroup8: TRzGroup;
    bgkz: TAction;
    ylgdtj: TAction;
    N89: TMenuItem;
    fpwlcx: TAction;
    N90: TMenuItem;
    gysshsltj: TAction;
    gysshzltj: TAction;
    procedure bbExecute(Sender: TObject);
    procedure material_classExecute(Sender: TObject);
    procedure product_classExecute(Sender: TObject);
    procedure area_managerExecute(Sender: TObject);
    procedure countryExecute(Sender: TObject);
    procedure unit_managerExecute(Sender: TObject);
    procedure developmentExecute(Sender: TObject);
    procedure paymentExecute(Sender: TObject);
    procedure transport_dwExecute(Sender: TObject);
    procedure transport_fsExecute(Sender: TObject);
    procedure material_infoExecute(Sender: TObject);
    procedure product_infoExecute(Sender: TObject);
    procedure customer_infoExecute(Sender: TObject);
    procedure supplier_infoExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure cgwlxqExecute(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure cgdd_zzExecute(Sender: TObject);
    procedure cgdd_lbExecute(Sender: TObject);
    procedure ddzxqkcxExecute(Sender: TObject);
    procedure ddshqkExecute(Sender: TObject);
    procedure cgjh_lrExecute(Sender: TObject);
    procedure cgjh_lbExecute(Sender: TObject);
    procedure qtcgjh_lrExecute(Sender: TObject);
    procedure sccgxqExecute(Sender: TObject);
    procedure gysbj_lrExecute(Sender: TObject);
    procedure gysbj_lbExecute(Sender: TObject);
    procedure wlkc_dtExecute(Sender: TObject);
    procedure wljg_dbExecute(Sender: TObject);
    procedure thtzd_lrExecute(Sender: TObject);
    procedure thgl_lbExecute(Sender: TObject);
    procedure cgwltjExecute(Sender: TObject);
    procedure gysddExecute(Sender: TObject);
    procedure wlxqtjExecute(Sender: TObject);
    procedure wdwltjExecute(Sender: TObject);
    procedure wlkc_ztExecute(Sender: TObject);
    procedure xqwcqkExecute(Sender: TObject);
    procedure employerExecute(Sender: TObject);
    procedure backupExecute(Sender: TObject);
    procedure restoreExecute(Sender: TObject);
    procedure printExecute(Sender: TObject);
    procedure dateqlExecute(Sender: TObject);
    procedure qxszExecute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure user_managerExecute(Sender: TObject);
    procedure user_passwordExecute(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure aboutExecute(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure companyExecute(Sender: TObject);
    procedure wclwlExecute(Sender: TObject);
    procedure wlbjExecute(Sender: TObject);
    procedure user_logExecute(Sender: TObject);
    procedure wshjExecute(Sender: TObject);
    procedure wsbgExecute(Sender: TObject);
    procedure link_workerExecute(Sender: TObject);
    procedure tianyaExecute(Sender: TObject);
    procedure wlthExecute(Sender: TObject);
    procedure wltyExecute(Sender: TObject);
    procedure material_gysExecute(Sender: TObject);
    procedure gysgywlExecute(Sender: TObject);
    procedure xqwcjdExecute(Sender: TObject);
    procedure gdwcqkExecute(Sender: TObject);
    procedure xqwcjsExecute(Sender: TObject);
    procedure csh();
    procedure Timer1Timer(Sender: TObject);
    procedure professionExecute(Sender: TObject);
    procedure ScrollText1Click(Sender: TObject);
    procedure wlbdapExecute(Sender: TObject);
    procedure wbgwlExecute(Sender: TObject);
    procedure ylgdtjExecute(Sender: TObject);
    procedure fpwlcxExecute(Sender: TObject);
    procedure bgkzExecute(Sender: TObject);
    procedure gysshsltjExecute(Sender: TObject);
    procedure gysshzltjExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation
uses uconst,ufunction,udm1,frmunit,umaterial_info,ufrmproduct_info,ufrmcustomer_info,ufrmsupplier_info,
     ufrmwarehouse_info,ufrmtransport_info,ufrmreport,ucgjhd,usccgxq,uwljcmx,uthgl,ucgwltj,
     ucgjh_lr,ucgjh_lb,uqtcgjh_lr,ubjd_lb,ugysbj,ucgdd,ucgdd_lb,ucgzxqk,uwljg_db,uthd_lb,uprofession,
  uddshqk,ugysdd,uwlzxqtj,connectsql,uwdwltj,uwlkczt,uxqdwcqk,uemplyer,backup,restore,usjql,
  uqxsz,uflash,loginunit,uuser,uuser_password,uabout,ucompany,uwclwl,uwlbj,frmwlcplb,ChatFrm,MainFrm,
  uthwl,uwlty,umaterial_gys,ugysgywl,uxqwcqk,ugdwcqk,uxqwcjs,updwlap,ufrmylgdcx,uwlfpcx,
  uwbg_mater_info,ubgkz,ushdasmonth,ushdzlasmonth;
{$R *.dfm}
procedure tfrmmain.csh();
begin
if adoquery1.Active then adoquery1.Close;
   adoquery1.Open;
   ScrollText1.ScrollText:='';
    if adoquery1.Recordset.eof and adoquery1.Recordset.bof then exit;
    adoquery1.First;
    while not adoquery1.Eof do
          begin
          ScrollText1.ScrollText:=ScrollText1.ScrollText+#13#10+
          adoquery1.fieldbyname('id').AsString+'    '+adoquery1.fieldbyname('title').AsString+'      '+adoquery1.fieldbyname('pubdate').AsString+
          '    '+adoquery1.fieldbyname('djr').AsString;
          adoquery1.Next;
          end;
end;
procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
{根据传递过来的参数，打开相应的窗体}
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
      if Screen.Forms[i].ClassType=FormClass then
      begin
        {检查窗体是否已经打开，如果没有打开，打开它，
        如果已经打开，让它正常显示即可}
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
      end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;
procedure Tfrmmain.bbExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
dbase:='bb_class';
title:= '币别管理';
uunit:=tuunit.create(self);
uunit.Caption:='币别管理';
uunit.Show;
RzStatusPane1.Caption:='当前模块：币别管理';
end;

procedure Tfrmmain.material_classExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
dbase:='wllb';
title:=  '物料类别管理';
ufrmwlcplb:=tufrmwlcplb.create(self);
ufrmwlcplb.Caption:='物料类别管理';
ufrmwlcplb.Show;
RzStatusPane1.Caption:='当前模块：物料类别管理';
end;

procedure Tfrmmain.product_classExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
dbase:='cplb';
title:= '产品类别管理';
ufrmwlcplb:=tufrmwlcplb.create(self);
ufrmwlcplb.Caption:='产品类别管理';
ufrmwlcplb.Show;
RzStatusPane1.Caption:='当前模块：产品类别管理';
end;

procedure Tfrmmain.area_managerExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
dbase:='area_class';
title:= '地区管理';
uunit:=tuunit.create(self);
uunit.Caption:='地区管理';
uunit.Show;
RzStatusPane1.Caption:='当前模块：地区管理';
end;

procedure Tfrmmain.countryExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
dbase:='country_class';
title:= '国籍管理';
uunit:=tuunit.create(self);
uunit.Caption:='国籍管理';
uunit.Show;
RzStatusPane1.Caption:='当前模块：国籍管理';
end;

procedure Tfrmmain.unit_managerExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
dbase:='unit_class';
title:= '单位类别管理';
uunit:=tuunit.create(self);
uunit.Caption:='单位类别管理';
uunit.Show;
RzStatusPane1.Caption:='当前模块：单位类别管理';
end;

procedure Tfrmmain.developmentExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
dbase:='department';
title:= '部门类别管理';
uunit:=tuunit.create(self);
uunit.Caption:='部门类别管理';
uunit.Show;
RzStatusPane1.Caption:='当前模块：部门类别管理';
end;

procedure Tfrmmain.paymentExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
dbase:='payment_class';
title:= '付款方式管理';
uunit:=tuunit.create(self); 
uunit.Caption:='付款方式管理';
uunit.Show;
RzStatusPane1.Caption:='当前模块：付款方式管理';
end;

procedure Tfrmmain.transport_dwExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(Tfrmtransport_info,  frmtransport_info , self);
end;

procedure Tfrmmain.transport_fsExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
dbase:='transport_fs';
title:=  '运输方式管理';
uunit:=tuunit.create(self);
uunit.Caption:='运输方式管理';
uunit.Show;
RzStatusPane1.Caption:='当前模块：运输方式管理';
end;

procedure Tfrmmain.material_infoExecute(Sender: TObject);
begin
 if not qxjc(userid,'jbzl_print') then exit;
 OpenForm(Tfrmmaterial_info,  frmmaterial_info , self);
RzStatusPane1.Caption:='当前模块：物料档案管理';
end;

procedure Tfrmmain.product_infoExecute(Sender: TObject);