ufrmian.pas

工廠倉庫管理系統

dbase:='transport_fs';
title:=  '运输方式管理';
uunit:=tuunit.create(self);
uunit.Caption:='运输方式管理';
uunit.Show;
end;

procedure Tfrmmain.material_infoExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmmaterial_info,frmmaterial_info, self);
end;

procedure Tfrmmain.product_infoExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmproduct_info,frmproduct_info, self);
end;

procedure Tfrmmain.customer_infoExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmcustomer_info,frmcustomer_info, self);
end;

procedure Tfrmmain.supplier_infoExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmsupplier_info,frmsupplier_info, self);
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);
    if FileExists(systemstr+'\connectstring.txt') then
      begin
          AssignFile(f, systemstr+'\connectstring.txt');
          reset(f);
          readln(f,ConnectionString);
          CloseFile(F);
      end else begin
      ConnectsqlForm:=tConnectsqlForm.create(self);
      ConnectsqlForm.ShowModal;
      end;
      Dispose(cName);
      dispose(size);
    ConnectionString_1:=ConnectionString;
    frmflash:=tfrmflash.create(self);
    frmflash.showmodal;

end;

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

procedure Tfrmmain.shd_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'shd_print') then exit;
OpenForm(tfrmshd_lr,frmshd_lr, self);

end;

procedure Tfrmmain.shd_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'shd_print') then exit;
OpenForm(tfrmshd_lb,frmshd_lb, self);
end;

procedure Tfrmmain.fld_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'fld_print') then exit;
OpenForm(tfrmfld_lr,frmfld_lr, self);
end;

procedure Tfrmmain.fld_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'fld_print') then exit;
OpenForm(tfrmfld_lb,frmfld_lb, self);
end;

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

procedure Tfrmmain.qtfld_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'fld_print') then exit;
OpenForm(tfrmqtfld_lr,frmqtfld_lr, self);
end;

procedure Tfrmmain.bfd_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'bFd_print') then exit;
OpenForm(tfrmbld_lr,frmbld_lr, self);
end;

procedure Tfrmmain.bfd_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'bFd_print') then exit;
OpenForm(tfrmbfd_lb,frmbfd_lb, self);
end;

procedure Tfrmmain.hld_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'hLd_print') then exit;
OpenForm(tfrmhld_lr,frmhld_lr, self);
end;

procedure Tfrmmain.hld_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'hld_print') then exit;
OpenForm(tfrmhcd_lb,frmhcd_lb, self);
end;

procedure Tfrmmain.thd_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'thd_print') then exit;
OpenForm(tfrmthgl,frmthgl, self);
end;

procedure Tfrmmain.thd_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'thd_print') then exit;
OpenForm(tfrmthd_lb,frmthd_lb, self);
end;

procedure Tfrmmain.wlpd_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'pdd_print') then exit;
OpenForm(tfrmwlpd_lr,frmwlpd_lr, self);
end;

procedure Tfrmmain.wlpd_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'pdd_print') then exit;
OpenForm(tfrmwlpd_lb,frmwlpd_lb, self);
end;

procedure Tfrmmain.bsd_lrExecute(Sender: TObject);
begin
if not qxjc(userid,'bsd_print') then exit;
OpenForm(tfrmbsd_lr,frmbsd_lr, self);
end;

procedure Tfrmmain.bsd_lbExecute(Sender: TObject);
begin
if not qxjc(userid,'bsd_print') then exit;
OpenForm(tfrmbsd_lb,frmbsd_lb, self);
end;

procedure Tfrmmain.wlbjExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmwlbj,frmwlbj, self);
end;

procedure Tfrmmain.ddshqkExecute(Sender: TObject);
begin
if not qxjc(userid,'dgdshqk') then exit;
OpenForm(tfrmcgshqk,frmcgshqk, self);
end;

procedure Tfrmmain.wljcmxExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
frmwljcmx:=tfrmwljcmx.create(self);
frmwljcmx.ShowModal;
end;

procedure Tfrmmain.pdwlapExecute(Sender: TObject);
begin
if not qxjc(userid,'wlfp_print') then exit;
OpenForm(tfrmpdwlap,frmpdwlap, self);
end;

procedure Tfrmmain.pdllqkExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmpdllqk,frmpdllqk, self);
end;

procedure Tfrmmain.bfdtjExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmscblqk,frmscblqk, self);
end;

procedure Tfrmmain.hldtjExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmscylqk,frmscylqk, self);
end;

procedure Tfrmmain.bsd_tjExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmbsd_tj,frmbsd_tj, self);
end;

procedure Tfrmmain.wlrktjExecute(Sender: TObject);
begin
if not qxjc(userid,'wlrktj') then exit;
OpenForm(tfrmwlrktj,frmwlrktj, self);
end;

procedure Tfrmmain.wlcktjExecute(Sender: TObject);
begin
if not qxjc(userid,'wlcktj') then exit;
OpenForm(tfrmwlcktj,frmwlcktj, self);
end;

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

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

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

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

procedure Tfrmmain.companyExecute(Sender: TObject);
begin
if not qxjc(userid,'company') then exit;
frmcompany:=tfrmcompany.create(self);
frmcompany.showmodal;
end;

procedure Tfrmmain.aboutExecute(Sender: TObject);
begin
frmabout:=tfrmabout.create(self);
frmabout.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.printExecute(Sender: TObject);
begin
PrintDialog1.execute;
end;


procedure Tfrmmain.gysddExecute(Sender: TObject);
begin
if not qxjc(userid,'jbzl_print') then exit;
OpenForm(tfrmgysdd,frmgysdd, self);
end;

procedure Tfrmmain.ToolButton1Click(Sender: TObject);
begin
RzSizePanel1.Visible:=not RzSizePanel1.Visible;
end;

procedure Tfrmmain.scwcjsExecute(Sender: TObject);
begin
OpenForm(tfrmscwcjs,frmscwcjs, self);
end;

procedure Tfrmmain.qtshdExecute(Sender: TObject);
begin
OpenForm(tfrmqtshd_lr,frmqtshd_lr, self);
end;

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

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

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

procedure Tfrmmain.gdwcqkExecute(Sender: TObject);
begin
OpenForm(tfrmgdwcqk,frmgdwcqk, 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.xqwcjsExecute(Sender: TObject);
begin
OpenForm(tfrmxqwcjs,frmxqwcjs, self);
end;

procedure Tfrmmain.xqdwcqkExecute(Sender: TObject);
begin
OpenForm(tfrmxqdwcqk,frmxqdwcqk, self);
end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
    strsql:='select top 10 * from gonggao order by pubdate desc';
    adoexect(adoquery1,strsql);
    csh;
    {
    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;
    }
    Timer1.Enabled:=true;
end;

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

procedure Tfrmmain.ToolButton2Click(Sender: TObject);
begin
    loginform:=tloginform.create(self);
    loginform.showmodal;
    strsql:='select * from company';
    adoexect(adoquery2,strsql);
    if adoquery2.Recordset.EOF and adoquery2.Recordset.EOF then
    application.title:='天涯进销存系统-采购系统'
    else
    application.title:=adoquery2.fieldbyname('company_name').asstring;
    adoquery2.Close;
end;

procedure Tfrmmain.data_managerExecute(Sender: TObject);
begin
databackform:=tdatabackform.Create(self);
databackform.ShowModal;
end;

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

procedure Tfrmmain.professionExecute(Sender: TObject);
begin
OpenForm(tfrmprofession,frmprofession, self);
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.xqwcqkExecute(Sender: TObject);
begin
OpenForm(tfrmxqwcqk,frmxqwcqk, self);
end;

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

procedure Tfrmmain.yfpwlqrExecute(Sender: TObject);
begin
frmfpwlqr:=tfrmfpwlqr.Create(self);
frmfpwlqr.Show;
end;

procedure Tfrmmain.wlckrkzhExecute(Sender: TObject);
begin
OpenForm(tfrmwlckrkzh,frmwlckrkzh, self);
end;

procedure Tfrmmain.gysndtjExecute(Sender: TObject);
begin
OpenForm(tfrmshdasmonth,frmshdasmonth, self);
end;

end.