⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.pas

📁 本系统是SQL SERVER的管理系统
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N11Click(Sender: TObject);
begin
form62:=tform62.create(Application);
n11.Enabled:=false;
end;

procedure Tmainform.ToolButton1Click(Sender: TObject);
begin
 if messagedlg('你是否退出汽车销售管理系统呢？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
close;
end;
end;

procedure Tmainform.N9Click(Sender: TObject);
begin
 if messagedlg('你是否退出汽车销售管理系统呢？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
close;
end;
end;

procedure Tmainform.ToolButton3Click(Sender: TObject);
begin
 form112:=tform112.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N18Click(Sender: TObject);
begin
 form21:=tform21.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.ToolButton5Click(Sender: TObject);
begin
form21:=tform21.create(Application);
n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.ToolButton6Click(Sender: TObject);
begin
 form22:=tform22.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N19Click(Sender: TObject);
begin
 form22:=tform22.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N20Click(Sender: TObject);
begin
 form31:=tform31.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.ToolButton8Click(Sender: TObject);
begin
  form31:=tform31.create(Application);
  n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N22Click(Sender: TObject);
begin
form33:=tform33.create(application);
n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=true; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N21Click(Sender: TObject);
begin
 form32:=tform32.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=true; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.ToolButton9Click(Sender: TObject);
begin
 form32:=tform32.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=true; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
123

⌨️ 快捷键说明

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