main.pas

物流管理系统是一个典型的数据库应用程序

// 调用员工信息窗口
procedure Tt_main.EmployeeinfoExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_employeeinfo,f_employeeinfo);
  f_employeeinfo.ShowModal;
  f_employeeinfo.Free;
end;
// 调用操作员信息窗口
procedure Tt_main.OperatorinfoExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_operatorinfo,f_operatorinfo);
  f_operatorinfo.ShowModal;
  f_operatorinfo.Free;
end;
procedure Tt_main.FormCreate(Sender: TObject);
var
  i: Integer;
  CheckPos: Integer;//检查框出现的位置
begin
  //设置动作项提示信息
  For i := 0 to List1.ActionCount-1 do
    TAction(List1.Actions[i]).Hint := TAction(List1.Actions[i]).Caption;
  Application.OnHint := ShowHint;
  CheckPos := 0;
  //在状态栏中创建复选框,并设置复选框的单击事件
  with ShowInter do
  begin
    ShowInter := TCheckBox.Create(Self);
    Width := Checkwidth;
    Height := CheckHeight;
    Parent := StatusBar1;
    Caption := '显示界面';
    Checked := True;
    OnClick := IntercontrolExecute;
    For i := 0 to Sta_ShowInterfase-1 do
      CheckPos := CheckPos+ StatusBar1.Panels[i].Width;
    Left := CheckPos+ ((StatusBar1.Panels[Sta_ShowInterfase].Width-Width) Div 2);
    Top := (StatusBar1.Height-Height) Div 2+1;
    Show;
  end;
end;
// 调用密码修改窗口
procedure Tt_main.UpdatepassExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_updatepass,f_updatepass);
  f_updatepass.ShowModal;
  f_updatepass.Free;
end;
// 调用入库登记窗口
procedure Tt_main.Action18Execute(Sender: TObject);
begin
  Application.CreateForm(Tf_instore,f_instore);
  f_instore.ShowModal;
  f_instore.Free;
end;
// 调用物资出库登记窗口
procedure Tt_main.OutStoreExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_storeout,f_storeout);
  f_storeout.ShowModal;
  f_storeout.Free;
end;
//  调用物资入库退货窗口
procedure Tt_main.StoreCancelInExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_storecancel,f_storecancel);
  f_storecancel.ShowModal;
  f_storecancel.Free;
end;
// 调用物资报废窗口
procedure Tt_main.ScrapExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_storescrap,f_storescrap);
  f_storescrap.ShowModal;
  f_storescrap.Free;
end;
// 调用盘点打印窗口
procedure Tt_main.CheckPrintExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_checkprint,f_checkprint);
  f_checkprint.ShowModal;
  f_checkprint.Free;
end;
//  调用报损管理窗口
procedure Tt_main.StoreLessExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_checklose,f_checklose);
  f_checklose.ShowModal;
  f_checklose.Free;
end;
//  调用报溢管理窗口
procedure Tt_main.StoreMoreExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_checkmore,f_checkmore);
  f_checkmore.ShowModal;
  f_checkmore.Free;
end;
//  调用入库查询窗口
procedure Tt_main.StoreInQueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_instorequery,f_instorequery);
  f_instorequery.ShowModal;
  f_instorequery.Free;
end;
//  调用出库查询窗口
procedure Tt_main.StoreOutQueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_outstorequery,f_outstorequery);
  f_outstorequery.ShowModal;
  f_outstorequery.Free;
end;
// 调用入库退货查询窗口
procedure Tt_main.StoreCancelQueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_storecancelquery,f_storecancelquery);
  f_storecancelquery.ShowModal;
  f_storecancelquery.Free;
end;
// 调用维修查询窗口
procedure Tt_main.ServiceQueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_servicestorequery,f_servicestorequery);
  f_servicestorequery.ShowModal;
  f_servicestorequery.Free;
end;
// 调用物资报废查询窗口
procedure Tt_main.StoreScrapQueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_scrapstorequery,f_scrapstorequery);
  f_scrapstorequery.ShowModal;
  f_scrapstorequery.Free;
end;
// 调用报损查询窗口
procedure Tt_main.StoreLessQueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_losestorequery,f_losestorequery);
  f_losestorequery.ShowModal;
  f_losestorequery.Free;
end;
// 调用报溢查询窗口
procedure Tt_main.StoreMoreQueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_morestorequery,f_morestorequery);
  f_morestorequery.ShowModal;
  f_morestorequery.Free;
end;
// 调用供应商结款窗口
procedure Tt_main.ProviderCheckExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_providercheck,f_providercheck);
  f_providercheck.ShowModal;
  f_providercheck.Free;
end;
// 调用供应商结款查询窗口
procedure Tt_main.ProviderCheckQueryExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_checkproviderquery,f_checkproviderquery);
  f_checkproviderquery.ShowModal;
  f_checkproviderquery.Free;
end;
//系统退出
procedure Tt_main.SystemExitExecute(Sender: TObject);
begin
  Close;
end;
// 调用物资出库票号冲销窗口
procedure Tt_main.OutStoreLogoutExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_outstorelogout,f_outstorelogout);
  f_outstorelogout.ShowModal;
  f_outstorelogout.Free;
end;
 //设置主窗口样式
procedure Tt_main.IntercontrolExecute(Sender: TObject);
var
  rect1: Trect;
begin
  if not t_interfase.Visible then
  begin
    if not Panel3.Visible then
      Panel3.Show;
    t_interfase.Visible := True;
    Rect1:= Panel3.ClientRect;
    ShowInter.Caption := '显示界面';
    //将窗体t_interfase放入面板中
    t_interfase.Dock(panel3,rect1);
    panel3.DockManager.InsertControl(t_interfase,alclient,t_interfase);
  end
  else
  begin
    ShowInter.Caption := '隐藏界面';
    Panel3.Hide;
    t_interfase.Visible := False;
  end;
end;
// 调用维修登记窗口
procedure Tt_main.ServiceExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_storeservice,f_storeservice);
  f_storeservice.ShowModal;
  f_storeservice.Free;
end;
// 调用入库票号冲销窗口
procedure Tt_main.InStoreLogoutExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_Instorelogout,f_Instorelogout);
  f_Instorelogout.ShowModal;
  f_Instorelogout.Free;
end;
//设置状态栏提示信息
procedure Tt_main.ShowHint(Sender: TObject);
begin
  StatusBar1.Panels[Sta_Hint].Text := Application.Hint;
end;
//调用登录窗口
procedure Tt_main.LoginExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_login,f_login);
  f_login.ShowModal;
  f_login.Free;
end;
// 调用入库退货票号冲销窗口
procedure Tt_main.InCancelLogoutExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_Cancelstorelogout,f_Cancelstorelogout);
  f_Cancelstorelogout.ShowModal;
  f_Cancelstorelogout.Free;
end;
// 调用维修票号冲销窗口
procedure Tt_main.ServiceLogoutExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_servicestorelogout,f_servicestorelogout);
  f_servicestorelogout.ShowModal;
  f_servicestorelogout.Free;
end;
// 调用报损票号冲销窗口
procedure Tt_main.LessLogoutExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_checkloselogout,f_checkloselogout);
  f_checkloselogout.ShowModal;
  f_checkloselogout.Free;
end;
// 调用报溢票号冲销窗口
procedure Tt_main.MoreLogoutExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_checkmorelogout,f_checkmorelogout);
  f_checkmorelogout.ShowModal;
  f_checkmorelogout.Free;
end;
// 调用供应商结款票号冲销窗口
procedure Tt_main.ProviderCheckLogoutExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_providerchecklogout,f_providerchecklogout);
  f_providerchecklogout.ShowModal;
  f_providerchecklogout.Free;
end;
// 调用关于窗口
procedure Tt_main.AboutExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_about,f_about);
  f_about.ShowModal;
  f_about.Free;
end;

end.