ufrmian.pas

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

begin
if not qxjc(userid,'jbzl_print') then exit;
 OpenForm(Tfrmproduct_info,  frmproduct_info , self);
  RzStatusPane1.Caption:='当前模块：产品档案管理';
end;

procedure Tfrmmain.customer_infoExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
 OpenForm(Tfrmcustomer_info,  frmcustomer_info , self);
RzStatusPane1.Caption:='当前模块：客户档案管理';
end;

procedure Tfrmmain.supplier_infoExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
 OpenForm(Tfrmsupplier_info,  frmsupplier_info , self);
RzStatusPane1.Caption:='当前模块：供应商档案管理';
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
var
F:TextFile;
cName:Pchar;
Size:^DWord;
begin
    ChDir(ExtractFilePath(Application.ExeName));
    strpath := GetCurrentDir;
    GetMem(cName,255);
     new(size);
    getsystemdirectory(cname,size^);
    systemstr:=strpas(cname);
    systemstr:=strpath;
    if FileExists(systemstr+'\connectstring.txt') then
      begin
          AssignFile(f, systemstr+'\connectstring.txt');
          reset(f);
          readln(f,ConnectionString);
      end else begin
      ConnectsqlForm:=tConnectsqlForm.create(self);
      ConnectsqlForm.ShowModal;
      end;
      Dispose(cName);
      dispose(size);
    frmflash:=tfrmflash.create(self);
    frmflash.showmodal;

end;

procedure Tfrmmain.ToolButton6Click(Sender: TObject);
begin
close;
end;

procedure Tfrmmain.ToolButton5Click(Sender: TObject);
begin
dm1.adoproduct_class.close;
dm1.adoproduct_class.open;
dm1.ADOmaterial_class.close;
dm1.ADOmaterial_class.open;
dm1.area_class.close;
dm1.area_class.open;
dm1.bb.close;
dm1.bb.open;
dm1.development.close;
dm1.development.open;
dm1.payment.close;
dm1.payment.open;
dm1.ADOsmallclass.close;
dm1.ADOsmallclass.open;
dm1.nationlity.close;
dm1.nationlity.open;
dm1.bb.close;
dm1.bb.open;
dm1.unit_dw.Close;
dm1.unit_dw.Open;
end;

procedure Tfrmmain.cgwlxqExecute(Sender: TObject);
begin
 OpenForm(Tfrmcgjhd,  frmcgjhd , self);
RzStatusPane1.Caption:='当前模块：采购物料需求';
end;

procedure Tfrmmain.N21Click(Sender: TObject);
begin
 OpenForm(Tfrmcgjh_lb,  frmcgjh_lb , self);
RzStatusPane1.Caption:='当前模块：采购计划单列表';
end;

procedure Tfrmmain.cgdd_zzExecute(Sender: TObject);
begin
if not qxjc(userid,'cgdd_print') then exit;
 OpenForm(Tfrmcgdd,  frmcgdd , self);
RzStatusPane1.Caption:='当前模块：采购订单制作';
end;

procedure Tfrmmain.cgdd_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'cgdd_print') then exit;
 OpenForm(Tfrmcgdd_lb,  frmcgdd_lb , self);
RzStatusPane1.Caption:='当前模块：采购订单列表';
end;

procedure Tfrmmain.ddzxqkcxExecute(Sender: TObject);
begin
if not qxjc(userid,'dgdshqk') then exit;
 OpenForm(Tfrmcgzxqk,  frmcgzxqk , self);
RzStatusPane1.Caption:='当前模块：采购执行情况查询';
end;

procedure Tfrmmain.ddshqkExecute(Sender: TObject);
begin
if not qxjc(userid,'dgdshqk') then exit;
 OpenForm(Tfrmcgshqk,  frmcgshqk , self);
RzStatusPane1.Caption:='当前模块：订单送货情况查询';
end;

procedure Tfrmmain.cgjh_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'jhd_print') then exit;
 OpenForm(Tfrmcgjh_lr,  frmcgjh_lr , self);
RzStatusPane1.Caption:='当前模块：采购计划录入';
end;

procedure Tfrmmain.cgjh_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'jhd_print') then exit;
 OpenForm(Tfrmcgjh_lb,  frmcgjh_lb , self);
RzStatusPane1.Caption:='当前模块：采购计划单列表';
end;

procedure Tfrmmain.qtcgjh_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'jhd_print') then exit;
 OpenForm(Tfrmqtcgjh_lr,  frmqtcgjh_lr , self);
RzStatusPane1.Caption:='当前模块：其它采购计划录入';
end;

procedure Tfrmmain.sccgxqExecute(Sender: TObject);
begin
if not qxjc(userid,'xqd_print') then exit;
 OpenForm(Tfrmsccgxq,  frmsccgxq , self);
RzStatusPane1.Caption:='当前模块：生成采购需求';
end;

procedure Tfrmmain.gysbj_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'bjd_print') then exit;
 OpenForm(Tfrmgysbj,  frmgysbj , self);
RzStatusPane1.Caption:='当前模块：供应商报价录入';
end;

procedure Tfrmmain.gysbj_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'bjd_print') then exit;
 OpenForm(Tfrmbjd_lb,  frmbjd_lb , self);
RzStatusPane1.Caption:='当前模块：报价单列表';
end;

procedure Tfrmmain.wlkc_dtExecute(Sender: TObject);
begin
if not qxjc(userid,'wljctj') then exit;
frmwljcmx:=Tfrmwljcmx.Create(self);
frmwljcmx.ShowModal;
RzStatusPane1.Caption:='当前模块：物料进存流水帐';
end;

procedure Tfrmmain.wljg_dbExecute(Sender: TObject);
begin
if not qxjc(userid,'dgdshqk') then exit;
 OpenForm(Tfrmwljg_db,  frmwljg_db , self);
RzStatusPane1.Caption:='当前模块：物料价格对比';
end;

procedure Tfrmmain.thtzd_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'thd_print') then exit;
 OpenForm(Tfrmthgl, frmthgl , self);
RzStatusPane1.Caption:='当前模块：退货单录入';
end;

procedure Tfrmmain.thgl_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'thd_print') then exit;
 OpenForm(Tfrmthd_lb, frmthd_lb , self);
RzStatusPane1.Caption:='当前模块：退货单列表';
end;

procedure Tfrmmain.cgwltjExecute(Sender: TObject);
begin
if not qxjc(userid,'cgwltj') then exit;
 OpenForm(Tfrmcgwltj, frmcgwltj , self);
RzStatusPane1.Caption:='当前模块：采购物料统计';
end;

procedure Tfrmmain.gysddExecute(Sender: TObject);
begin
if not qxjc(userid,'dgdshqk') then exit;
 OpenForm(Tfrmgysdd, frmgysdd , self);
RzStatusPane1.Caption:='当前模块：供应商订单统计';
end;

procedure Tfrmmain.wlxqtjExecute(Sender: TObject);
begin
if not qxjc(userid,'xqwltj') then exit;
 OpenForm(Tfrmwlzxqtj, frmwlzxqtj , self);
RzStatusPane1.Caption:='当前模块：物料总需求统计';
end;

procedure Tfrmmain.wdwltjExecute(Sender: TObject);
begin
if not qxjc(userid,'dgdshqk') then exit;
 OpenForm(Tfrmwdwltj, frmwdwltj , self);
end;

procedure Tfrmmain.wlkc_ztExecute(Sender: TObject);
begin
frmwlkczt:=Tfrmwlkczt.Create(self);
frmwlkczt.ShowModal;
end;

procedure Tfrmmain.xqwcqkExecute(Sender: TObject);
begin
if not qxjc(userid,'xqd_print') then exit;
 OpenForm(Tfrmxqdwcqk, frmxqdwcqk, self);
RzStatusPane1.Caption:='当前模块：需求完成情况';
end;

procedure Tfrmmain.employerExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
 OpenForm(Tfrmemplyer, frmemplyer, self);
end;

procedure Tfrmmain.backupExecute(Sender: TObject);
var
  back: TBackUpForm;
begin
if not qxjc(userid,'date_bak') then exit;
    back:=tbackupform.Create(nil);
  try
    back.ShowModal;
  finally
    back.Free;
  end;
end;

procedure Tfrmmain.restoreExecute(Sender: TObject);
var
  restore: TrestoreForm;
begin
if not qxjc(userid,'date_restore') then exit;
    restore:=trestoreform.Create(nil);
  try
    restore.ShowModal;
  finally
    restore.Free;
  end;
end;

procedure Tfrmmain.printExecute(Sender: TObject);
begin
PrintDialog1.execute;
end;

procedure Tfrmmain.dateqlExecute(Sender: TObject);
begin
if not qxjc(userid,'date_clean') then exit;
frmsjql:=tfrmsjql.create(self);
frmsjql.showmodal;
end;


procedure Tfrmmain.qxszExecute(Sender: TObject);
begin
if not qxjc(userid,'qxsz') then exit;
frmqxsz:=tfrmqxsz.create(self);
frmqxsz.showmodal;
end;

procedure Tfrmmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagebox(handle,'是否真的要退出本系统？','询问',mb_yesno+mb_iconquestion)=idyes then
       canclose:=true
   else
       canclose:=false;
end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin

    strsql:='select * from company';
    adoexect(adoquery1,strsql);
    if adoquery1.Recordset.EOF and adoquery1.Recordset.EOF then
    application.title:='天涯进销存系统-采购系统'
    else
    application.title:=adoquery1.fieldbyname('company_name').asstring;
    strsql:='select top 10 * from gonggao order by pubdate desc';
    adoexect(adoquery1,strsql);
    csh;
end;

procedure Tfrmmain.user_managerExecute(Sender: TObject);
begin
if not qxjc(userid,'user_add') then exit;
frmuser:=tfrmuser.create(self);
frmuser.showmodal;
end;

procedure Tfrmmain.user_passwordExecute(Sender: TObject);
begin
frmpassword:=tfrmpassword.create(self);
frmpassword.showmodal;
end;

procedure Tfrmmain.ToolButton1Click(Sender: TObject);
begin
if RzSizePanel1.visible then
   RzSizePanel1.visible:=false
   else
   RzSizePanel1.visible:=true;
end;

procedure Tfrmmain.aboutExecute(Sender: TObject);
begin
frmabout:=tfrmabout.create(self);
frmabout.showmodal;
end;

procedure Tfrmmain.ToolButton2Click(Sender: TObject);
begin
    loginform:=tloginform.create(self);
    loginform.showmodal;
end;

procedure Tfrmmain.companyExecute(Sender: TObject);
begin
frmcompany:=tfrmcompany.create(self);
frmcompany.showmodal;
end;

procedure Tfrmmain.wclwlExecute(Sender: TObject);
begin
 OpenForm(Tfrmwclwl, frmwclwl, self);
end;

procedure Tfrmmain.wlbjExecute(Sender: TObject);
begin
 OpenForm(Tfrmwlbj, frmwlbj, self);
end;

procedure Tfrmmain.user_logExecute(Sender: TObject);
begin
 OpenForm(TChatInfo, ChatInfo, self);
end;

procedure Tfrmmain.wshjExecute(Sender: TObject);
begin
 OpenForm(TChatClientForm, ChatClientForm, self);
end;

procedure Tfrmmain.wsbgExecute(Sender: TObject);
begin
   ShellExecute(handle,nil,'http://a6/letwin',nil,nil,SW_SHOWNORMAL);
end;

procedure Tfrmmain.link_workerExecute(Sender: TObject);
begin
   ShellExecute(handle,nil,'mailto:[e-mail]?subject=关于“力盈仓库管理系统”',nil,nil,SW_SHOWNORMAL);
end;

procedure Tfrmmain.tianyaExecute(Sender: TObject);
begin
   ShellExecute(handle,nil,'http://tianyaweb.dgcar.com',nil,nil,SW_SHOWNORMAL);
end;

procedure Tfrmmain.wlthExecute(Sender: TObject);
begin
frmthwl:=tfrmthwl.create(self);
frmthwl.ShowModal;
end;

procedure Tfrmmain.wltyExecute(Sender: TObject);
begin
frmwlty:=tfrmwlty.create(self);
frmwlty.showmodal;
end;

procedure Tfrmmain.material_gysExecute(Sender: TObject);
begin
 OpenForm(Tfrmmaterial_gys, frmmaterial_gys, self);
end;

procedure Tfrmmain.gysgywlExecute(Sender: TObject);
begin
 OpenForm(Tfrmgysgywl, frmgysgywl, self);
end;

procedure Tfrmmain.xqwcjdExecute(Sender: TObject);
begin
 OpenForm(Tfrmxqwcqk, frmxqwcqk, self);
end;

procedure Tfrmmain.gdwcqkExecute(Sender: TObject);
begin
 OpenForm(Tfrmgdwcqk, frmgdwcqk, self);
end;

procedure Tfrmmain.xqwcjsExecute(Sender: TObject);
begin

 OpenForm(Tfrmxqwcjs, frmxqwcjs, self);
end;

procedure Tfrmmain.Timer1Timer(Sender: TObject);
begin
csh;
end;

procedure Tfrmmain.professionExecute(Sender: TObject);
begin
 OpenForm(Tfrmprofession, frmprofession, self);
end;

procedure Tfrmmain.ScrollText1Click(Sender: TObject);
begin
if ScrollText1.Active then
ScrollText1.Active:=false
else
ScrollText1.Active:=true;
end;

procedure Tfrmmain.wlbdapExecute(Sender: TObject);
begin
 OpenForm(Tfrmpdwlap, frmpdwlap, self);
end;

procedure Tfrmmain.wbgwlExecute(Sender: TObject);
begin
 OpenForm(Tfrmswbgwl, frmswbgwl, self);
end;

procedure Tfrmmain.ylgdtjExecute(Sender: TObject);
begin
OpenForm(Tfrmylgdcx, frmylgdcx, self);
end;

procedure Tfrmmain.fpwlcxExecute(Sender: TObject);
begin
OpenForm(Tfrmwlfpcx, frmwlfpcx, self);
end;

procedure Tfrmmain.bgkzExecute(Sender: TObject);
begin
OpenForm(Tfrmbgkz, frmbgkz, self);
end;

procedure Tfrmmain.gysshsltjExecute(Sender: TObject);
begin
OpenForm(Tfrmshdasmonth, frmshdasmonth, self);
end;

procedure Tfrmmain.gysshzltjExecute(Sender: TObject);
begin
OpenForm(Tfrmshdzlasmonth, frmshdzlasmonth, self);
end;

end.