main.pas

delphi作得信息业进销存源码.功能全面,运行稳定.

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComMain, Excel97, OleServer, Word97, AppEvnts, Menus, ImgList, ComCtrls,
  ToolWin, StdCtrls, ExtCtrls, Spin, Mask, Buttons, Excel2000, Word2000,
  XPMenu;

type
  TfrmMain = class(TfrmComMain)
    mnuZlGl: TMenuItem;
    mnuDq: TMenuItem;
    mnuKh: TMenuItem;
    mnuGys: TMenuItem;
    N4: TMenuItem;
    mnuZh: TMenuItem;
    mnuSfkfs: TMenuItem;
    mnuSrzclb: TMenuItem;
    N10: TMenuItem;
    mnuCk: TMenuItem;
    mnuHplb: TMenuItem;
    mnuHphsfs: TMenuItem;
    mnuHp: TMenuItem;
    mnuQtkcbdlx: TMenuItem;
    N18: TMenuItem;
    mnuBm: TMenuItem;
    mnuYglb: TMenuItem;
    mnuYg: TMenuItem;
    mnuSjzlZl: TMenuItem;
    mnuXsGl: TMenuItem;
    mnuBbGl: TMenuItem;
    mnuXsdd: TMenuItem;
    mnuXskd: TMenuItem;
    mnuXssk: TMenuItem;
    mnuXsth: TMenuItem;
    N9: TMenuItem;
    mnuCgsh: TMenuItem;
    mnuCgfk: TMenuItem;
    mnuCgth: TMenuItem;
    N15: TMenuItem;
    mnuLl: TMenuItem;
    mnuTl: TMenuItem;
    mnuCpjc: TMenuItem;
    mnuKcpd: TMenuItem;
    mnuChtj: TMenuItem;
    mnuQtkcbd: TMenuItem;
    mnuCkdb: TMenuItem;
    N24: TMenuItem;
    mnuFykz: TMenuItem;
    mnuQtsr: TMenuItem;
    mnuYhckqk: TMenuItem;
    mnuUserOption: TMenuItem;
    mnuXsBb: TMenuItem;
    mnuCgBb: TMenuItem;
    mnuZlfxBb: TMenuItem;
    mnuSzBb: TMenuItem;
    mnuBbKhXsHz: TMenuItem;
    mnuBbKhXsMx: TMenuItem;
    N5: TMenuItem;
    mnuBbHpXsHz: TMenuItem;
    mnuBbHpXsMx: TMenuItem;
    N12: TMenuItem;
    mnuBbYwyXsHz: TMenuItem;
    mnuBbYwyXsMx: TMenuItem;
    N17: TMenuItem;
    mnuBbHpXsMlHz: TMenuItem;
    mnuBbHpXsMlMx: TMenuItem;
    mnuBbXsMlAdjs: TMenuItem;
    mnuBbYwyYjtj: TMenuItem;
    mnuBbXsddQk: TMenuItem;
    mnuBbXsMsdj: TMenuItem;
    mnuBbXsNb: TMenuItem;
    N28: TMenuItem;
    mnuBbDqXsHz: TMenuItem;
    mnuBbDqXsMx: TMenuItem;
    mnuBbGysGhHz: TMenuItem;
    mnuBbGysGhMx: TMenuItem;
    N33: TMenuItem;
    mnuBbHpCgHz: TMenuItem;
    mnuBbHpCgMx: TMenuItem;
    N36: TMenuItem;
    mnuBbYwyCgHz: TMenuItem;
    mnuBbYwyCgMx: TMenuItem;
    mnuBbCgddQk: TMenuItem;
    mnuBbCgMfdj: TMenuItem;
    mnuBbCkkcHz: TMenuItem;
    mnuBbCkkcMx: TMenuItem;
    mnuBbKcCwb: TMenuItem;
    mnuBbYskZb: TMenuItem;
    mnuBbYskZlfx: TMenuItem;
    mnuBbYfkZlfx: TMenuItem;
    mnuBbYfkZb: TMenuItem;
    mnuBbSzHz: TMenuItem;
    mnuBbSzMx: TMenuItem;
    mnuBbXjyhHz: TMenuItem;
    mnuBbXjyhMx: TMenuItem;
    mnuBbKhLsz: TMenuItem;
    mnuBbGysLsz: TMenuItem;
    mnuBbCkLsz: TMenuItem;
    mnuBbSzLsz: TMenuItem;
    N2: TMenuItem;
    mnuBbHplbXsHz: TMenuItem;
    mnuBbHplbXsMx: TMenuItem;
    mnuBbYskMx: TMenuItem;
    mnuBbYfkMx: TMenuItem;
    N3: TMenuItem;
    mnuBbYskZlMx: TMenuItem;
    N7: TMenuItem;
    mnuBbYfkZlMx: TMenuItem;
    mnuBbRqLsz: TMenuItem;
    mnuCgGl: TMenuItem;
    mnuCkGl: TMenuItem;
    mnuCgdd: TMenuItem;
    mnuSzGl: TMenuItem;
    mnuZbGl: TMenuItem;
    N14: TMenuItem;
    N1: TMenuItem;
    mnuFckcb: TMenuItem;
    mnuCqYsk: TMenuItem;
    mnuJdqYsk: TMenuItem;
    mnuCqYfk: TMenuItem;
    mnuJdqYfk: TMenuItem;
    N6: TMenuItem;
    N11: TMenuItem;
    mnuYyLrb: TMenuItem;
    XPMenu1: TXPMenu;
    //
    procedure AppBtn2Click(Sender: TObject);override;
    procedure mnuOptionClick(Sender: TObject);override;
    procedure mnuUserOptionClick(Sender: TObject);
    //功能菜单
    procedure mnuDqClick(Sender: TObject);
    procedure mnuKhClick(Sender: TObject);
    procedure mnuGysClick(Sender: TObject);
    procedure mnuZhClick(Sender: TObject);
    procedure mnuSfkfsClick(Sender: TObject);
    procedure mnuSrzclbClick(Sender: TObject);
    procedure mnuCkClick(Sender: TObject);
    procedure mnuHplbClick(Sender: TObject);
    procedure mnuSjzlZlClick(Sender: TObject);
    procedure mnuBmClick(Sender: TObject);
    procedure mnuYglbClick(Sender: TObject);
    procedure mnuYgClick(Sender: TObject);
    procedure mnuHphsfsClick(Sender: TObject);
    procedure mnuQtkcbdlxClick(Sender: TObject);
    procedure mnuHpClick(Sender: TObject);
    procedure mnuCgdhClick(Sender: TObject);
    procedure mnuCgshClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure mnuCgfkClick(Sender: TObject);
    procedure mnuCgthClick(Sender: TObject);
    procedure mnuXsddClick(Sender: TObject);
    procedure mnuXskdClick(Sender: TObject);
    procedure mnuXsskClick(Sender: TObject);
    procedure mnuXsthClick(Sender: TObject);
    procedure mnuLlClick(Sender: TObject);
    procedure mnuTlClick(Sender: TObject);
    procedure mnuCpjcClick(Sender: TObject);
    procedure mnuKcpdClick(Sender: TObject);
    procedure mnuChtjClick(Sender: TObject);
    procedure mnuCkdbClick(Sender: TObject);
    procedure mnuQtkcbdClick(Sender: TObject);
    procedure mnuFykzClick(Sender: TObject);
    procedure mnuQtsrClick(Sender: TObject);
    procedure mnuYhckqkClick(Sender: TObject);
    procedure mnuBbzxClick(Sender: TObject);
    procedure mnuBbKhXsHzClick(Sender: TObject);
    procedure mnuBbKhXsMxClick(Sender: TObject);
    procedure mnuBbHpXsHzClick(Sender: TObject);
    procedure mnuBbHpXsMxClick(Sender: TObject);
    procedure mnuBbYwyXsHzClick(Sender: TObject);
    procedure mnuBbYwyXsMxClick(Sender: TObject);
    procedure mnuBbDqXsHzClick(Sender: TObject);
    procedure mnuBbDqXsMxClick(Sender: TObject);
    procedure mnuBbHplbXsHzClick(Sender: TObject);
    procedure mnuBbHplbXsMxClick(Sender: TObject);
    procedure mnuBbHpXsMlHzClick(Sender: TObject);
    procedure mnuBbHpXsMlMxClick(Sender: TObject);
    procedure mnuBbXsMlAdjsClick(Sender: TObject);
    procedure mnuBbYwyYjtjClick(Sender: TObject);
    procedure mnuBbXsddQkClick(Sender: TObject);
    procedure mnuBbXsMsdjClick(Sender: TObject);
    procedure mnuBbXsNbClick(Sender: TObject);
    procedure mnuBbGysGhHzClick(Sender: TObject);
    procedure mnuBbGysGhMxClick(Sender: TObject);
    procedure mnuBbHpCgHzClick(Sender: TObject);
    procedure mnuBbHpCgMxClick(Sender: TObject);
    procedure mnuBbYwyCgHzClick(Sender: TObject);
    procedure mnuBbYwyCgMxClick(Sender: TObject);
    procedure mnuBbCgddQkClick(Sender: TObject);
    procedure mnuBbCgMfdjClick(Sender: TObject);
    procedure mnuBbCkkcHzClick(Sender: TObject);
    procedure mnuBbCkkcMxClick(Sender: TObject);
    procedure mnuBbKcCwbClick(Sender: TObject);
    procedure mnuBbYskZbClick(Sender: TObject);
    procedure mnuBbYskMxClick(Sender: TObject);
    procedure mnuBbYskZlfxClick(Sender: TObject);
    procedure mnuBbYskZlMxClick(Sender: TObject);
    procedure mnuBbYfkZbClick(Sender: TObject);
    procedure mnuBbYfkMxClick(Sender: TObject);
    procedure mnuBbYfkZlfxClick(Sender: TObject);
    procedure mnuBbYfkZlMxClick(Sender: TObject);
    procedure mnuBbRqLszClick(Sender: TObject);
    procedure mnuBbKhLszClick(Sender: TObject);
    procedure mnuBbGysLszClick(Sender: TObject);
    procedure mnuBbCkLszClick(Sender: TObject);
    procedure mnuBbSzLszClick(Sender: TObject);
    procedure mnuBbSzHzClick(Sender: TObject);
    procedure mnuBbSzMxClick(Sender: TObject);
    procedure mnuBbXjyhHzClick(Sender: TObject);
    procedure mnuCqYskClick(Sender: TObject);
    procedure mnuCqYfkClick(Sender: TObject);
    procedure mnuJdqYskClick(Sender: TObject);
    procedure mnuJdqYfkClick(Sender: TObject);
    procedure mnuYyLrbClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  pDataBaseType = 'ACCESS';

var
  frmMain: TfrmMain;
  pstrComputerName: string;
  pintUserId: Integer;
  pstrUserCode: string;
  pstrUserName: string;
  pstrUserPassword: string;
  pstrUserGroup: string;
  pblnLoadAppSelect: boolean;
  pblnSaveAppSelect: boolean;
  pHKL: HKL;
  //My Public
  pintCKID: Integer;
  pintSJID: Integer;

implementation

uses Dq, Kh, Gys, Zh, Sfkfs, Srzclb, Ck, Hplb, SjzlZl, Cyjsdw, Bm, Yglb, Yg,
  Qtkcbdlx, Hphsff, Hp, SetCal, Cgddzb, Cgshzb, Common, ComFun, Cgfkzb,
  Cgthzb, Xsddzb, Xskdzb, Xsskzb, Xsthzb, Llzb, Tlzb, Cpjczb, Kcpdzb,
  Chtjzb, Ckdbzb, Qtkcbdzb, Fykzzb, Qtsrzb, Yhckqk, SysOption, UserOption,
  Bbzx, BbKhXsHz, Rqdsz, MyLib, BbKhXsMx, KhRqd, BbHpXsHz, BbHpXsMx, HpRqd,
  BbYwyXsHz, BbYwyXsMx, YwyRqd, DqRqd, BbDqXsHz, BbDqXsMx, BbHplbXsHz,
  BbHplbXsMx, HplbRqd, BbHpXsMlHz, BbHpXsMlMx, BbXsMlAdjs, BbYwyYjtj,
  BbXsddQk, BbXsMsdj, Ndsz, BbXsMlNb, BbGysGhHz, BbGysGhMx, BbXsMlNbMx,
  GysRqd, BbHpCgHz, BbHpCgMx, BbYwyCgHz, BbYwyCgMx, BbCgddQk, BbCgMfdj,
  CkRqd, BbCkkcHz, BbCkkcMx, CkHpRqd, BbHpCwb, BbYskZb, BbYskMx, ZlfxSz,
  BbYskZlfx, BbYskZlMx, ZlfxKhSz, BbYfkMx, BbYfkZb, BbYfkZlfx, BbYfkZlMx,
  ZlfxGysSz, BbRqLsz, BbKhLsz, BbGysLsz, BbCkLsz, BbSzLsz, BbSzHz, BbSzMx,
  SzlbRqd, BbXjyhHz, BbXjyhMx, BbCqYsk, BbCqYfk, JdqSz, BbJdqYsk, BbJdqYfk,
  BbYyLrb;

{$R *.DFM}

{-Create AppAction-}

procedure TfrmMain.FormShow(Sender: TObject);
begin
  inherited;
  pblnLoadAppSelect := False;
  pblnSaveAppSelect := False;
  //User Option
  pintCKID := StrToInt(Float2Str(GetFieldValue('select Top 1 ID from CK order by XH')));
  pintSJID := StrToInt(Float2Str(GetFieldValue('select Top 1 ID from SJZL order by XH')));
end;

procedure TfrmMain.AppBtn2Click(Sender: TObject);
begin
  inherited;
  screen.Cursor := crHourGlass;
  //资料
  SAction('mnuDq', 'Dq', '');
  SAction('mnuKh', 'Kh', '');
  SAction('mnuGys', 'Gys', '');
  SAction('mnuZh', 'Zh', '');
  SAction('mnuSfkfs', 'Sfkfs', '');
  SAction('mnuSrzclb', 'Srzclb', '');
  SAction('mnuCk', 'Ck', '');
  SAction('mnuHplb', 'Hplb', '');
  SAction('mnuSjzlZl', 'SjzlZl', '');
  SAction('mnuHp', 'Hp', '');
  SAction('mnuBm', 'Bm', '');
  SAction('mnuYglb', 'Yglb', '');
  SAction('mnuYg', 'Yg', '');
  //进销存
  screen.Cursor := crDefault;
  MessageDlg('Set AppAction OK!', mtInformation, [mbOk], 0);
end;

//系统设置
procedure TfrmMain.mnuOptionClick(Sender: TObject);
begin
  frmSysOption := TfrmSysOption.Create(Application);
  frmSysOption.ShowModal;
end;

//我的设置
procedure TfrmMain.mnuUserOptionClick(Sender: TObject);
begin
  frmUserOption := TfrmUserOption.Create(Application);
  frmUserOption.ShowModal;
end;

{-ZL 资料-}

//地区
procedure TfrmMain.mnuDqClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmDq') then
    frmDq := TfrmDq.Create(Application);
  frmDq.Show;
  EndShow(Sender);
end;

//客户
procedure TfrmMain.mnuKhClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmKh') then
    frmKh := TfrmKh.Create(Application);
  frmKh.Show;
  EndShow(Sender);
end;

//供应商
procedure TfrmMain.mnuGysClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmGys') then
    frmGys := TfrmGys.Create(Application);
  frmGys.Show;
  EndShow(Sender);
end;

//帐户
procedure TfrmMain.mnuZhClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmZh') then
    frmZh := TfrmZh.Create(Application);
  frmZh.Show;
  EndShow(Sender);
end;

//收付款方式
procedure TfrmMain.mnuSfkfsClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmSfkfs') then
    frmSfkfs := TfrmSfkfs.Create(Application);
  frmSfkfs.Show;
  EndShow(Sender);
end;

//收入支出类别
procedure TfrmMain.mnuSrzclbClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmSrzclb') then
    frmSrzclb := TfrmSrzclb.Create(Application);
  frmSrzclb.Show;
  EndShow(Sender);
end;

//仓库
procedure TfrmMain.mnuCkClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmCk') then
    frmCk := TfrmCk.Create(Application);
  frmCk.Show;
  EndShow(Sender);
end;

//货品类别
procedure TfrmMain.mnuHplbClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmHplb') then
    frmHplb := TfrmHplb.Create(Application);
  frmHplb.Show;
  EndShow(Sender);
end;

//售价种类
procedure TfrmMain.mnuSjzlZlClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmSjzlZl') then
    frmSjzlZl := TfrmSjzlZl.Create(Application);
  frmSjzlZl.Show;
  EndShow(Sender);
end;

//货品核算方法
procedure TfrmMain.mnuHphsfsClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmHphsff') then
    frmHphsff := TfrmHphsff.Create(Application);
  frmHphsff.Show;
  EndShow(Sender);
end;

//货品
procedure TfrmMain.mnuHpClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmHp') then
    frmHp := TfrmHp.Create(Application);
  frmHp.Show;
  EndShow(Sender);
end;

//其它库存变动类型
procedure TfrmMain.mnuQtkcbdlxClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmQtkcbdlx') then
    frmQtkcbdlx := TfrmQtkcbdlx.Create(Application);
  frmQtkcbdlx.Show;
  EndShow(Sender);
end;

//部门
procedure TfrmMain.mnuBmClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmBm') then
    frmBm := TfrmBm.Create(Application);
  frmBm.Show;
  EndShow(Sender);
end;

//员工类别
procedure TfrmMain.mnuYglbClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmYglb') then
    frmYglb := TfrmYglb.Create(Application);
  frmYglb.Show;
  EndShow(Sender);
end;

//员工
procedure TfrmMain.mnuYgClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmYg') then
    frmYg := TfrmYg.Create(Application);
  frmYg.Show;
  EndShow(Sender);
end;

{-JXC 进销存-}

//采购订单
procedure TfrmMain.mnuCgdhClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmCgddzb') then
    frmCgddzb := TfrmCgddzb.Create(Application);
  frmCgddzb.Show;
  EndShow(Sender);
end;

//采购收货
procedure TfrmMain.mnuCgshClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmCgshzb') then
    frmCgshzb := TfrmCgshzb.Create(Application);
  frmCgshzb.Show;
  EndShow(Sender);
end;

//采购付款
procedure TfrmMain.mnuCgfkClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmCgfkzb') then
    frmCgfkzb := TfrmCgfkzb.Create(Application);
  frmCgfkzb.Show;
  EndShow(Sender);
end;

//采购退货
procedure TfrmMain.mnuCgthClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmCgthzb') then
    frmCgthzb := TfrmCgthzb.Create(Application);
  frmCgthzb.Show;
  EndShow(Sender);
end;

//销售订单
procedure TfrmMain.mnuXsddClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmXsddzb') then
    frmXsddzb := TfrmXsddzb.Create(Application);
  frmXsddzb.Show;
  EndShow(Sender);
end;

//销售开单
procedure TfrmMain.mnuXskdClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmXskdzb') then
    frmXskdzb := TfrmXskdzb.Create(Application);
  frmXskdzb.Show;
  EndShow(Sender);
end;

//销售收款
procedure TfrmMain.mnuXsskClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmXsskzb') then
    frmXsskzb := TfrmXsskzb.Create(Application);
  frmXsskzb.Show;
  EndShow(Sender);
end;

//销售退货
procedure TfrmMain.mnuXsthClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmXsthzb') then
    frmXsthzb := TfrmXsthzb.Create(Application);
  frmXsthzb.Show;
  EndShow(Sender);
end;

//领料
procedure TfrmMain.mnuLlClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmLlzb') then
    frmLlzb := TfrmLlzb.Create(Application);
  frmLlzb.Show;
  EndShow(Sender);
end;

//退料
procedure TfrmMain.mnuTlClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmTlzb') then
    frmTlzb := TfrmTlzb.Create(Application);
  frmTlzb.Show;
  EndShow(Sender);
end;

//产品进仓
procedure TfrmMain.mnuCpjcClick(Sender: TObject);
begin
  BeginShow(Sender);
  if not IsOpenMdiForm('frmCpjczb') then
    frmCpjczb := TfrmCpjczb.Create(Application);
  frmCpjczb.Show;
  EndShow(Sender);
end;