ufrmian.pas

工廠倉庫管理系統

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, DB, ADODB,
  jpeg,shellapi, StdCtrls, RzLabel, ScrollText, SkinCaption;

type
  Tfrmmain = class(TForm)
    ImageList3: TImageList;
    ImageList2: TImageList;
    ActionList1: TActionList;
    FileExit1: TAction;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    HelpAbout1: TAction;
    material_class: TAction;
    product_class: TAction;
    area_manager: TAction;
    country: TAction;
    bb: TAction;
    unit_manager: TAction;
    development: TAction;
    payment: TAction;
    customer: TAction;
    supplier: TAction;
    product: TAction;
    material: TAction;
    warehouse_info: TAction;
    transport: TAction;
    LogReport: TAction;
    transport_dw: TAction;
    EMail: TAction;
    Help: TAction;
    Action2: TAction;
    product_info: TAction;
    material_info: TAction;
    customer_info: TAction;
    supplier_info: TAction;
    print: TAction;
    qq: TAction;
    sjql: 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;
    Panel1: TPanel;
    Panel2: TPanel;
    RzSizePanel1: TRzSizePanel;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    RzGroup4: TRzGroup;
    RzStatusBar1: TRzStatusBar;
    RzStatusPane1: TRzStatusPane;
    RzStatusPane2: TRzStatusPane;
    RzStatusPane3: TRzStatusPane;
    RzStatusPane4: TRzStatusPane;
    RzStatusPane5: TRzStatusPane;
    Img1: TImage;
    ImageList1: TImageList;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    shd_lr: TAction;
    shd_lb: TAction;
    fld_lr: TAction;
    fld_lb: TAction;
    qtfld_lr: TAction;
    bfd_lr: TAction;
    bfd_lb: TAction;
    hld_lr: TAction;
    hld_lb: TAction;
    tld_lr: TAction;
    tld_lb: TAction;
    RzGroup2: TRzGroup;
    RzGroup3: TRzGroup;
    RzGroup5: TRzGroup;
    emplyer: TAction;
    N73: TMenuItem;
    s1: TMenuItem;
    N74: TMenuItem;
    thd_lb: TAction;
    thd_lr: TAction;
    wlpd_lr: TAction;
    wlpd_lb: TAction;
    bsd_lr: TAction;
    bsd_lb: TAction;
    wlbj: TAction;
    ddshqk: TAction;
    wljcmx: TAction;
    ADOQuery1: TADOQuery;
    pdwlap: TAction;
    pdllqk: TAction;
    lltj: TAction;
    bfdtj: TAction;
    hldtj: TAction;
    bsd_tj: TAction;
    N62: TMenuItem;
    wlrktj: TAction;
    RzGroup6: TRzGroup;
    wlcktj: TAction;
    data_manager: TAction;
    user: TAction;
    password: TAction;
    qxsz: TAction;
    company: TAction;
    about: TAction;
    PrintDialog1: TPrintDialog;
    RzGroup7: TRzGroup;
    RzGroup8: TRzGroup;
    gysdd: TAction;
    N45: TMenuItem;
    scwcjs: TAction;
    qtshd: TAction;
    N75: TMenuItem;
    wshj: TAction;
    user_log: TAction;
    wsbg: TAction;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    gdwcqk: TAction;
    N79: TMenuItem;
    N80: TMenuItem;
    link_worker: TAction;
    N81: TMenuItem;
    xqwcjs: TAction;
    N82: TMenuItem;
    xqdwcqk: TAction;
    N83: TMenuItem;
    Panel3: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton5: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    Timer1: TTimer;
    Panel4: TPanel;
    ScrollText1: TScrollText;
    ADOQuery2: TADOQuery;
    SkinData1: TSkinData;
    SkinCaption1: TSkinCaption;
    profession: TAction;
    N84: TMenuItem;
    xqwcqk: TAction;
    N85: TMenuItem;
    ylgdtj: TAction;
    N86: TMenuItem;
    yfpwlqr: TAction;
    N87: TMenuItem;
    N88: TMenuItem;
    wlckrkzh: TAction;
    N89: TMenuItem;
    gysndtj: TAction;
    N90: TMenuItem;
    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 warehouseExecute(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 shd_lrExecute(Sender: TObject);
    procedure shd_lbExecute(Sender: TObject);
    procedure fld_lrExecute(Sender: TObject);
    procedure fld_lbExecute(Sender: TObject);
    procedure emplyerExecute(Sender: TObject);
    procedure qtfld_lrExecute(Sender: TObject);
    procedure bfd_lrExecute(Sender: TObject);
    procedure bfd_lbExecute(Sender: TObject);
    procedure hld_lrExecute(Sender: TObject);
    procedure hld_lbExecute(Sender: TObject);
    procedure thd_lrExecute(Sender: TObject);
    procedure thd_lbExecute(Sender: TObject);
    procedure wlpd_lrExecute(Sender: TObject);
    procedure wlpd_lbExecute(Sender: TObject);
    procedure bsd_lrExecute(Sender: TObject);
    procedure bsd_lbExecute(Sender: TObject);
    procedure wlbjExecute(Sender: TObject);
    procedure ddshqkExecute(Sender: TObject);
    procedure wljcmxExecute(Sender: TObject);
    procedure pdwlapExecute(Sender: TObject);
    procedure pdllqkExecute(Sender: TObject);
    procedure bfdtjExecute(Sender: TObject);
    procedure hldtjExecute(Sender: TObject);
    procedure bsd_tjExecute(Sender: TObject);
    procedure wlrktjExecute(Sender: TObject);
    procedure wlcktjExecute(Sender: TObject);
    procedure sjqlExecute(Sender: TObject);
    procedure userExecute(Sender: TObject);
    procedure passwordExecute(Sender: TObject);
    procedure qxszExecute(Sender: TObject);
    procedure companyExecute(Sender: TObject);
    procedure aboutExecute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure printExecute(Sender: TObject);  
    procedure gysddExecute(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure scwcjsExecute(Sender: TObject);
    procedure qtshdExecute(Sender: TObject);
    procedure wshjExecute(Sender: TObject);
    procedure user_logExecute(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure gdwcqkExecute(Sender: TObject);
    procedure wsbgExecute(Sender: TObject);
    procedure link_workerExecute(Sender: TObject);
    procedure xqwcjsExecute(Sender: TObject);
    procedure xqdwcqkExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure csh();
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure data_managerExecute(Sender: TObject);
    procedure ScrollText1Click(Sender: TObject);
    procedure professionExecute(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure xqwcqkExecute(Sender: TObject);
    procedure ylgdtjExecute(Sender: TObject);
    procedure yfpwlqrExecute(Sender: TObject);
    procedure wlckrkzhExecute(Sender: TObject);
    procedure gysndtjExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation
uses uconst,udm1,ufunction,frmunit,umaterial_info,ufrmproduct_info,ufrmcustomer_info,ufrmsupplier_info,
     ufrmwarehouse_info,ufrmtransport_info,ufrmreport,ushd_lr,ushd_lb,ufld_lr,ufld_lb,ufpwlqr,
     uemplyer,uqtfld_lr,ubld_lr,ubfd_lb,uhld_lr,uhcd_lb,uthgl,uthd_lb,uwlpd_lr,uwlpd_lb,
     ubsd_lr,ubsd_lb,uwlbj,uddshqk,uwljcmx,updwlap,updllqk,uscblqk,uscylqk,ubsd_tj,uprofession,
     uwlrktj,uwlcktj,usjql,uuser,uabout,uuser_password,ucompany,connectsql,uxqwcjs,uxqdwcqk,uxqwcqk,
     uqxsz,loginunit,databackunit,uflash,ugysdd,uscwcjs,uqtshd_lr,chatfrm,mainfrm,ugdwcqk,frmwlcplb,
     ufrmylgdcx,uwlckrkzh,ushdasmonth;
{$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
dbase:='bb_class';
title:= '币别管理';
uunit:=tuunit.create(self);
uunit.Caption:='币别管理';
uunit.Show;
end;

procedure Tfrmmain.material_classExecute(Sender: TObject);
begin
dbase:='wllb';
title:=  '物料类别管理';
ufrmwlcplb:=tufrmwlcplb.create(self);
ufrmwlcplb.Caption:='物料类别管理';
ufrmwlcplb.Show;
end;

procedure Tfrmmain.product_classExecute(Sender: TObject);
begin
dbase:='cplb';
title:= '产品类别管理';
ufrmwlcplb:=tufrmwlcplb.create(self);
ufrmwlcplb.Caption:='产品类别管理';
ufrmwlcplb.Show;
end;

procedure Tfrmmain.area_managerExecute(Sender: TObject);
begin
dbase:='area_class';
title:= '地区管理';
uunit:=tuunit.create(self);
uunit.Caption:='地区管理';
uunit.Show;
end;

procedure Tfrmmain.countryExecute(Sender: TObject);
begin
dbase:='country_class';
title:= '国籍管理';
uunit:=tuunit.create(self);
uunit.Caption:='国籍管理';
uunit.Show;
end;

procedure Tfrmmain.unit_managerExecute(Sender: TObject);
begin
dbase:='unit_class';
title:= '单位类别管理';
uunit:=tuunit.create(self);
uunit.Caption:='单位类别管理';
uunit.Show;
end;

procedure Tfrmmain.developmentExecute(Sender: TObject);
begin
dbase:='department';
uunit:=tuunit.create(self);
uunit.Caption:='部门类别管理';
uunit.Show;
end;

procedure Tfrmmain.warehouseExecute(Sender: TObject);
begin
frmwarehouse_info:=tfrmwarehouse_info.create(self);
frmwarehouse_info.Show;
end;

procedure Tfrmmain.paymentExecute(Sender: TObject);
begin
dbase:='payment_class';
title:= '付款方式管理';
uunit:=tuunit.create(self); 
uunit.Caption:='付款方式管理';
uunit.Show;
end;

procedure Tfrmmain.transport_dwExecute(Sender: TObject);
begin
frmtransport_info:=tfrmtransport_info.create(self);
frmtransport_info.Show;
end;

procedure Tfrmmain.transport_fsExecute(Sender: TObject);
begin