📄 main.pas

📁 本系统是SQL SERVER的管理系统
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
 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.ToolButton11Click(Sender: TObject);
begin
 form33:=tform33.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.N23Click(Sender: TObject);
begin
form34:=tform34.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.ToolButton12Click(Sender: TObject);
begin
form34:=tform34.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.N14Click(Sender: TObject);
begin
  form113:=tform113.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.FormShow(Sender: TObject);
begin
hh:=2;
form1:=tform1.create(application);
n12.enabled:=true;  { 用户信息}
 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.ToolButton2Click(Sender: TObject);
begin
form1:=tform1.create(application);
end;


procedure Tmainform.Timer1Timer(Sender: TObject);
var
date1,time1:string;
begin
date1:=datetostr(date());
time1:=TimeToStr(time());
statusbar1.panels[4].text:=date1;
statusbar1.panels[5].text:=time1;
statusbar1.panels[1].text:=main.tp;
statusbar1.panels[3].text:=main.name;
end;

procedure Tmainform.N16Click(Sender: TObject);
begin
  form122:=tform122.create(Application);
end;

procedure Tmainform.N17Click(Sender: TObject);
begin
form123:=tform123.create(Application);
end;
function DaoActive(var DaoObject:OleVariant):Boolean;
begin
  Result:=False;
  try
    DaoObject:=GetActiveOleObject('DAO.DBEngine.35');
    Result:=True;
  except
    try
      DaoObject:=CreateOleObject('DAO.DBEngine.35');
      Result:=True;
    except
      DaoObject:=Null;
    end;
  end;
end;

//压缩Access数据库
function DaoCompactDB(const FileName:string):Boolean;
var
  db:OleVariant;
  TempFile:string;
begin
  Result:=False;
  try
    if not DaoActive(db) then
      Exit;
    try
      TempFile:=ExtractFilePath(FileName)+'msaTemp.mdb';
      db.CompactDatabase(FileName,TempFile);
      DeleteFile(FileName);
      RenameFile(TempFile,FileName);
      Result:=True;
    except
      on E:EOleException do
        ShowMessage(E.Message);
    end
  finally
    db:=Unassigned;
  end;
end;

//修复Access数据库
function DaoRepairDB(const FileName:string):Boolean;
var
  db:OleVariant;
begin
  Result:=False;
  try
    if not DaoActive(db) then
      Exit;
    try
      db.RepairDatabase(FileName);
      Result:=True;
    except
      on E:EOleException do
        ShowMessage(E.Message);
    end
  finally
    db:=Unassigned;
  end;
  end;
procedure Tmainform.N15Click(Sender: TObject);

  var
  aliaspath:string;
  f:boolean;
begin

   aliaspath:=ExtractFilePath(Application.ExeName)+'cardata\carsale.mdb';

    if messagedlg('你是否对数据进行优化？',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
       try
     data.database.connected:=false;
    f:=DaoRepairDB(aliaspath);
    if f  then
    begin
    showmessage('数据优化完成');
    end
    else
    begin
    showmessage('数据优化失败,请重试');
    end;
    data.database.connected:=true;
    finally
    end;
    end;


  data.database.connected:=true;

end;



procedure Tmainform.N10Click(Sender: TObject);
var shelpfile:string;
begin
 sHelpFile:=ExtractFilePath(Application.ExeName)+'cardata\carsale.chm';
ShellExecute(0,'open',pchar(shelpfile),nil,nil,SW_SHOWNORMAL);


end;

procedure Tmainform.ToolButton14Click(Sender: TObject);

var shelpfile:string;
begin
 sHelpFile:=ExtractFilePath(Application.ExeName)+'cardata\carsale.chm';
ShellExecute(0,'open',pchar(shelpfile),nil,nil,SW_SHOWNORMAL);


end;


end.
上一页 1 23
💿 文件大小 2926 K
👤 上传用户 Jane
📂 所属分类 SQL Server
🏷️ 相关标签

#SERVER #SQL #管理系统
⌨️ 快捷键说明

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