📄 main.pas

📁 物流管理系统是一个典型的数据库应用程序
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, XPStyleActnCtrls, ActnMan, ToolWin, ActnCtrls,
  ActnMenus, ExtCtrls, ComCtrls, Buttons,interfase, StdCtrls, jpeg,ini,
  storageinfo,loginserver,storeinfo,providerinfo,dutyinfo,employeeinfo,
  operatorinfo,login,updatepass,instore,storecancel,storeservice,storescrap,
  checkprint,checklose,checkmore,instorequery,outstorequery,storecancelquery,
  servicestorequery,scrapstorequery,losestorequery,morestorequery,providercheck,
  checkproviderquery,instorelogout,outstorelogout,cancelstorelogout,servicestorelogout,
  scrapstorelogout,checkloselogout,checkmorelogout,providerchecklogout,about,
  ImgList;
type
  Tt_main = class(TForm)
    ActionMainMenuBar1: TActionMainMenuBar;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ToolButton1: TToolButton;
    dl: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton12: TSpeedButton;
    ToolButton2: TToolButton;
    SpeedButton11: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton8: TSpeedButton;
    ToolButton3: TToolButton;
    SpeedButton7: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton4: TToolButton;
    Panel2: TPanel;
    Image1: TImage;
    Manager: TActionManager;
    SpeedButton4: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    ToolButton5: TToolButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    List1: TActionList;
    Login: TAction;
    Updatepass: TAction;
    Storageinfo: TAction;
    Goodsinfo: TAction;
    Providerinfo: TAction;
    Dutyinfo: TAction;
    Employeeinfo: TAction;
    Operatorinfo: TAction;
    Intercontrol: TAction;
    OutStore: TAction;
    Service: TAction;
    StoreCancelIn: TAction;
    Scrap: TAction;
    CheckPrint: TAction;
    StoreLess: TAction;
    StoreMore: TAction;
    StoreInQuery: TAction;
    StoreOutQuery: TAction;
    StoreCancelQuery: TAction;
    ServiceQuery: TAction;
    StoreScrapQuery: TAction;
    StoreLessQuery: TAction;
    StoreMoreQuery: TAction;
    ProviderCheck: TAction;
    ProviderCheckQuery: TAction;
    SystemExit: TAction;
    InStoreLogout: TAction;
    OutStoreLogout: TAction;
    InCancelLogout: TAction;
    ServiceLogout: TAction;
    ScrapLogout: TAction;
    LessLogout: TAction;
    MoreLogout: TAction;
    ProviderCheckLogout: TAction;
    About: TAction;
    Panel3: TPanel;
    Animate: TAnimate;
    ImageMemu: TImageList;
    InStore: TAction;
    procedure FormShow(Sender: TObject);
    procedure ScrapLogoutExecute(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure StorageinfoExecute(Sender: TObject);
    procedure GoodsinfoExecute(Sender: TObject);
    procedure ProviderinfoExecute(Sender: TObject);
    procedure DutyinfoExecute(Sender: TObject);
    procedure EmployeeinfoExecute(Sender: TObject);
    procedure OperatorinfoExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure UpdatepassExecute(Sender: TObject);
    procedure Action18Execute(Sender: TObject);
    procedure OutStoreExecute(Sender: TObject);
    procedure StoreCancelInExecute(Sender: TObject);
    procedure ScrapExecute(Sender: TObject);
    procedure CheckPrintExecute(Sender: TObject);
    procedure StoreLessExecute(Sender: TObject);
    procedure StoreMoreExecute(Sender: TObject);
    procedure StoreInQueryExecute(Sender: TObject);
    procedure StoreOutQueryExecute(Sender: TObject);
    procedure StoreCancelQueryExecute(Sender: TObject);
    procedure ServiceQueryExecute(Sender: TObject);
    procedure StoreScrapQueryExecute(Sender: TObject);
    procedure StoreLessQueryExecute(Sender: TObject);
    procedure StoreMoreQueryExecute(Sender: TObject);
    procedure ProviderCheckExecute(Sender: TObject);
    procedure ProviderCheckQueryExecute(Sender: TObject);
    procedure SystemExitExecute(Sender: TObject);
    procedure OutStoreLogoutExecute(Sender: TObject);
    procedure IntercontrolExecute(Sender: TObject);
    procedure ServiceExecute(Sender: TObject);
    procedure InStoreLogoutExecute(Sender: TObject);
    procedure LoginExecute(Sender: TObject);
    procedure InCancelLogoutExecute(Sender: TObject);
    procedure ServiceLogoutExecute(Sender: TObject);
    procedure LessLogoutExecute(Sender: TObject);
    procedure MoreLogoutExecute(Sender: TObject);
    procedure ProviderCheckLogoutExecute(Sender: TObject);
    procedure AboutExecute(Sender: TObject);
  private

    { Private declarations }
  public
    Operatorname: String; //记录操作员名称
    Operatorpass: String;//记录操作员密码
    Level: String; //记录操作员级别
    Procedure ShowHint(Sender: TObject);//该过程指向Application对象的onhint事件
    { Public declarations }
  end;
Const
  {*************定义状态栏面板索引 ***************}
  Sta_Hint = 1;//提示面板
  Sta_Operatername = 3;//操作员名称面板
  Sta_Level = 5;//操作员级别面板
  Sta_ShowInterfase = 6;//控制界面显示面板
  Sta_Date = 8;//日期面板
  Checkwidth = 70;//检查框宽度
  CheckHeight = 17;//检查框高度
  {*************物资管理各个模块标识(在进行红字冲销时标识)***************}
  Instore = 1;  //入库
  outstore = 2;  //出库
  cancelstore = 3; //入库退后
  servicestore = 4; //维修
  scrapstore = 5; //报废
  losestore = 6; //报损
  morestore = 7; //报溢
  providerpay = 8; //结款
var
  t_main: Tt_main;
  ShowInter: TCheckBox;//面板中出现的检查框
implementation

uses storeout,inifiles,data;

{$R *.dfm}

procedure Tt_main.FormShow(Sender: TObject);
var
  ini: TIniFile;
  server,database,user,password: String;
begin
  //设置窗体界面,即只显示窗体背景图片效果还是在窗体中嵌入一个子窗体
  IntercontrolExecute(Sender);
  //调用初始化窗口
  Application.CreateForm(Tf_ini,f_ini);
  f_ini.ShowModal;
  f_ini.Free;
  ini := nil;
  //配置信息是否存在
  if Not FileExists(ExtractFilePath(Application.ExeName)+'Login.ini') then
  begin
    //调用登录服务器窗口,登录服务器并记录登录信息
    Application.CreateForm(Tf_loginserver,f_loginserver);
    f_loginserver.ShowModal;
    f_loginserver.Free;
  end
  else //读取配置信息
  begin
    Try
      ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Login.ini');
      server := ini.ReadString('配置信息','服务器','');
      database := ini.ReadString('配置信息','数据库','');
      user := ini.ReadString('配置信息','用户名','');
      password := ini.ReadString('配置信息','密码','');
      Try
        t_data.Connection1.ConnectionString := 'Provider=SQLOLEDB.1;Password='+Trim(Password)+';Persist Security Info=True;User ID='+Trim(User)+';Initial Catalog='+Trim(Database)+';Data Source='+Trim(Server);
        t_data.Connection1.Open;
      Except
       if Application.MessageBox('数据库连接失败,是否重新连接数据库?','提示',mb_yesno) = ID_Yes then
       begin
          Application.CreateForm(Tf_loginserver,f_loginserver);
          f_loginserver.ShowModal;
          f_loginserver.Free;
       end;
      end;
    Finally
      ini.Free;
    end;
  end;
  Login.Execute;
  StatusBar1.Panels[Sta_Date].Text := FormatDateTime('yyyy-mm-dd',Now);
  //加载AVI动画
  if  FileExists(ExtractFilePath(Application.ExeName)+'AVI\store.avi') then
  begin
    Animate.FileName := ExtractFilePath(Application.ExeName)+'AVI\store.avi';
    Animate.Active := True;
  end;
end;
//调用物资报废票号冲销管理窗口
procedure Tt_main.ScrapLogoutExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_scrapstorelogout,f_scrapstorelogout);
  f_scrapstorelogout.ShowModal;
  f_scrapstorelogout.Free;
end;
//按Esc键关闭窗体
procedure Tt_main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Escape then
    Close;
end;
//关闭系统时提示是否退出系统
procedure Tt_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('确实要退出系统吗?','提示',mb_YesNo) = id_NO then
    CanClose := False;
end;
// 调用仓库基础信息窗口
procedure Tt_main.StorageinfoExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_storageinfo,f_storageinfo);
  f_storageinfo.ShowModal;
  f_storageinfo.Free;
end;
// 调用物资基础信息窗口
procedure Tt_main.GoodsinfoExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_storeinfo,f_storeinfo);
  f_storeinfo.ShowModal;
  f_storeinfo.Free;
end;
// 调用供应商信息窗口
procedure Tt_main.ProviderinfoExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_providerinfo,f_providerinfo);
  f_providerinfo.ShowModal;
  f_providerinfo.Free;
end;
//  调用职务基础信息窗口
procedure Tt_main.DutyinfoExecute(Sender: TObject);
begin
  Application.CreateForm(Tf_dutyinfo,f_dutyinfo);
  f_dutyinfo.ShowModal;
  f_dutyinfo.Free;
end;
12 下一页
💿 文件大小 5665 K
👤 上传用户 jccg1000146752
📂 所属分类数据库系统
🏷️ 相关标签

#物流管理系统 #典型 #数据库 #应用程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -