unit111.~pas

本系统是SQL SERVER的管理系统

unit Unit111;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, EffBtns, VCLBase, EPButtons,shellapi;

type
  TForm111 = class(TForm)
    DBGrid1: TDBGrid;
    epEfButton1: TepEfButton;
    epEfButton2: TepEfButton;
    epEfButton3: TepEfButton;
    epEfButton4: TepEfButton;
    epEfButton5: TepEfButton;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    epEfTrBtn3: TepEfTrBtn;
    epEfTrBtn4: TepEfTrBtn;
    procedure epEfTrBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure epEfButton1Click(Sender: TObject);
    procedure epEfButton2Click(Sender: TObject);
    procedure epEfButton3Click(Sender: TObject);
    procedure epEfButton4Click(Sender: TObject);
    procedure epEfButton5Click(Sender: TObject);
    procedure epEfTrBtn3Click(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form111: TForm111;

implementation

uses cardata, Unit1111, Unit1112,main;

{$R *.DFM}
procedure helpcarsale(var key:word); {显示帮助文件}
var shelpfile:string;
begin
if key=vk_f1 then
begin
 sHelpFile:=ExtractFilePath(Application.ExeName)+'cardata\carsale.chm';
ShellExecute(0,'open',pchar(shelpfile),nil,nil,SW_SHOWNORMAL);
end;

end;

procedure TForm111.epEfTrBtn4Click(Sender: TObject);
begin
form111.Release;
if main.kk=1 then
begin
with data.usesquery do
 begin
 close;
 sql.Clear;
 sql.add('select * from uses');
 sql.add('where usename='+''''+main.name+'''');
 prepare;
 open;
 mainform.n12.enabled:=fieldbyname('f11').value; {用户信息}
 mainform.n10.enabled:=fieldbyname('h1').value; {帮助}
 mainform.n11.enabled:=fieldbyname('h2').value; {关于}
 mainform.n13.enabled:=fieldbyname('f12').value; {密码更改}
 mainform.n14.enabled:=fieldbyname('f13').value; {用户权限}
 mainform.n15.enabled:=fieldbyname('f21').value;{数据优化}
 mainform.n16.enabled:=fieldbyname('f22').value;  {数据备份}
 mainform.n17.enabled:=fieldbyname('f23').value;  {数据还原}
 mainform.n18.enabled:=fieldbyname('d1').value;  {车辆入库}
 mainform.n19.enabled:=fieldbyname('d2').value;  {库存}
 mainform.n20.Enabled:=fieldbyname('s1').value;  {车辆销售}
 mainform.n21.enabled:=fieldbyname('s2').value; {销售利润}
 mainform.n22.Enabled:=fieldbyname('g1').value; {查询}
 mainform.n23.enabled:=fieldbyname('g2').value; {统计}
 mainform.n31.enabled:=fieldbyname('i1').value;  {车型}
 mainform.n32.enabled:=fieldbyname('i2').value; {颜色}
 mainform.n33.enabled:=fieldbyname('i3').value;  {车辆来源}
 mainform.n34.enabled:=fieldbyname('i4').value;  {用户类型}
 mainform.toolbutton2.enabled:=true;{重新登陆}
mainform.toolbutton3.enabled:=fieldbyname('f12').value;{密码更改}
mainform.toolbutton5.enabled:=fieldbyname('d1').value;{入库}
mainform.toolbutton6.enabled:=fieldbyname('d2').value;{库存}
mainform.toolbutton8.enabled:=fieldbyname('s1').value;{车辆销售}
mainform.toolbutton9.enabled:=fieldbyname('s2').value;{销售利润}
mainform.toolbutton11.enabled:=fieldbyname('g1').value;{查询}
mainform.toolbutton12.enabled:=fieldbyname('g2').value;{统计}
mainform.toolbutton14.enabled:=fieldbyname('h1').value;{帮助}
end;
end
else
begin
 mainform.n12.enabled:=true;
 mainform.toolbutton2.enabled:=true;
end;
end;
procedure TForm111.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form111.free;
if main.kk=1 then
begin
with data.usesquery do
 begin
 close;
 sql.Clear;
 sql.add('select * from uses');
 sql.add('where usename='+''''+main.name+'''');
 prepare;
 open;
 mainform.n12.enabled:=fieldbyname('f11').value; {用户信息}
 mainform.n10.enabled:=fieldbyname('h1').value; {帮助}
 mainform.n11.enabled:=fieldbyname('h2').value; {关于}
 mainform.n13.enabled:=fieldbyname('f12').value; {密码更改}
 mainform.n14.enabled:=fieldbyname('f13').value; {用户权限}
 mainform.n15.enabled:=fieldbyname('f21').value;{数据优化}
 mainform.n16.enabled:=fieldbyname('f22').value;  {数据备份}
 mainform.n17.enabled:=fieldbyname('f23').value;  {数据还原}
 mainform.n18.enabled:=fieldbyname('d1').value;  {车辆入库}
 mainform.n19.enabled:=fieldbyname('d2').value;  {库存}
 mainform.n20.Enabled:=fieldbyname('s1').value;  {车辆销售}
 mainform.n21.enabled:=fieldbyname('s2').value; {销售利润}
 mainform.n22.Enabled:=fieldbyname('g1').value; {查询}
 mainform.n23.enabled:=fieldbyname('g2').value; {统计}
 mainform.n31.enabled:=fieldbyname('i1').value;  {车型}
 mainform.n32.enabled:=fieldbyname('i2').value; {颜色}
 mainform.n33.enabled:=fieldbyname('i3').value;  {车辆来源}
 mainform.n34.enabled:=fieldbyname('i4').value;  {用户类型}
 mainform.toolbutton2.enabled:=true;{重新登陆}
mainform.toolbutton3.enabled:=fieldbyname('f12').value;{密码更改}
mainform.toolbutton5.enabled:=fieldbyname('d1').value;{入库}
mainform.toolbutton6.enabled:=fieldbyname('d2').value;{库存}
mainform.toolbutton8.enabled:=fieldbyname('s1').value;{车辆销售}
mainform.toolbutton9.enabled:=fieldbyname('s2').value;{销售利润}
mainform.toolbutton11.enabled:=fieldbyname('g1').value;{查询}
mainform.toolbutton12.enabled:=fieldbyname('g2').value;{统计}
mainform.toolbutton14.enabled:=fieldbyname('h1').value;{帮助}
 end;
 end
 else
 begin
 mainform.n12.enabled:=true;
 mainform.toolbutton2.enabled:=true;
 end;
end;

procedure TForm111.epEfButton1Click(Sender: TObject);
begin
 data.usestable.first;
epefbutton1.enabled:=false;
epefbutton2.enabled:=false;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
end;

procedure TForm111.epEfButton2Click(Sender: TObject);
begin
data.usestable.prior;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
if data.usestable.bof then
 begin
 epefbutton1.enabled:=false;
 epefbutton2.enabled:=false;
 end;
end;

procedure TForm111.epEfButton3Click(Sender: TObject);
begin
 data.usestable.next;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
if data.usestable.eof then
begin
epefbutton3.enabled:=false;
epefbutton4.enabled:=false;
end;
end;

procedure TForm111.epEfButton4Click(Sender: TObject);
begin
data.usestable.last;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=false;
epefbutton4.enabled:=false;
end;

procedure TForm111.epEfButton5Click(Sender: TObject);
begin
 
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
end;

procedure TForm111.epEfTrBtn3Click(Sender: TObject);
var s1,s2:string;
begin
if data.usestable.fieldbyname('usename').asstring=main.name then
begin
showmessage('当前记录用户正在使用，不能删除');
end
else
begin
s1:='  编号：('+ data.usestable.fieldbyname('useno').asstring;
s1:=s1+')   用户名：('+data.usestable.fieldbyname('usename').asstring+')   用户类型：('+data.usestable.fieldbyname('usetype').asstring+')';
s2:='你是否确定删除'+s1+'这条用户信息记录吗？';
if messagedlg(s2,mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
   with data.usestable do
   begin
   delete;
   end;
   showmessage('这个用户已删除完成');
   end
 else
   begin
   showmessage('你没有删除这个用户');
   end;
end;
end;

procedure TForm111.epEfTrBtn1Click(Sender: TObject);
begin
 form1111:=tform1111.create(Application);
   form111.enabled:=false;
end;

procedure TForm111.epEfTrBtn2Click(Sender: TObject);
begin
if main.name=data.usestable.fieldbyname('usename').asstring then
begin
showmessage('当前记录用户正在使用，不能修改');
end
else
begin
form1112:=tform1112.create(Application);
form111.enabled:=false;
form1112.flatedit1.text:='';
form1112.flatedit2.text:='';
form1112.flatedit3.text:='';
form1112.flatedit4.text:='';
form1112.flatcombobox1.text:='';
unit1112.a1:=data.usestable.fieldbyname('useno').asstring;
form1112.flatedit1.text:=data.usesTable.fieldbyname('useno').asstring;
form1112.flatedit2.text:=data.usestable.fieldbyname('usename').asstring;
form1112.flatedit3.text:=data.usestable.fieldbyname('usepw').asstring;
form1112.flatedit4.text:=data.usestable.fieldbyname('usepw').asstring;
form1112.flatcombobox1.text:=data.usestable.fieldbyname('usetype').asstring;
end;
end;

procedure TForm111.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
helpcarsale(key);
end;

end.