unit1.pas

大家看看就明白了

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, VCLBase, EffBtns, TFlatEditUnit,shellapi;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FlatEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FlatEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  
    

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   h:integer;
implementation

uses main, cardata;

{$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;
function csh(s:string):string; {加密函数}
var i1,i3,k:integer;
begin
i1:=length(s);
for i3:=1 to i1 do
 begin
 if ((s[i3]>='a')and (s[i3]<='z'))or ((s[i3]>='A')and(s[i3]<='Z')) then
   begin
    k:=ord(s[i3])-8;
   end
 else
    if (s[i3]>='0') and (s[i3]<='9') then
     begin
     k:=ord(s[i3])+9;
     end
    else
     begin
      k:=ord(s[i3])+18;
     end;
 if (k<1)or(k>255)then
  begin
   k:=88;
  end;
 s[i3]:=chr(k);
 end;
 result:=s;
 end;

procedure TForm1.epEfTrBtn2Click(Sender: TObject);
begin
if main.ii=1 then
begin
close;
end
else
begin
  if messagedlg('你是否退出汽车销售管理系统呢？',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
  main.ii:=1;
  close;
  end
  else
  begin
form1.release;
main.ii:=2;
end;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if main.ii<>1 then
begin
 if messagedlg('你是否退出汽车销售管理系统呢？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
 main.ii:=1;
end ;
end;
if main.ii=1 then
begin
mainform.close;
end
else
begin

form1.free;
end;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
flatedit1.text:='';
flatedit2.text:='';
end;

procedure TForm1.epEfTrBtn1Click(Sender: TObject);
var
  i,i1:integer;
  s1,s2:string;
  begin

 with data.usestable do
 begin
 i:=0;
 first;
 while not eof do
 begin
 i:=i+1;
 next;
 end;
 end;
 if i=0 then
 begin
 showmessage('本系统还没有注册用户，请先注册用户');
 mainform.n12.enabled:=true; {用户信息}
 mainform.n10.enabled:=true; {帮助}
 mainform.n11.enabled:=true; {关于}
 mainform.n13.enabled:=false; {密码更改}
 mainform.n14.enabled:=false; {用户权限}
 mainform.n15.enabled:=false; {数据优化}
 mainform.n16.enabled:=false;  {数据备份}
 mainform.n17.enabled:=false;  {数据还原}
 mainform.n18.enabled:=false;  {车辆入库}
 mainform.n19.enabled:=false;  {库存}
 mainform.n20.Enabled:=false;  {车辆销售}
 mainform.n21.enabled:=false;  {销售利润}
 mainform.n22.Enabled:=false;  {查询}
 mainform.n23.enabled:=false;  {统计}
 mainform.n31.enabled:=false;  {车型}
 mainform.n32.enabled:=false;  {颜色}
 mainform.n33.enabled:=false;  {车辆来源}
 mainform.n34.enabled:=false;  {用户类型}
 mainform.toolbutton2.enabled:=false;{重新登陆}
mainform.toolbutton3.enabled:=false;{密码更改}
mainform.toolbutton5.enabled:=false;{入库}
mainform.toolbutton6.enabled:=false;{库存}
mainform.toolbutton8.enabled:=false;{车辆销售}
mainform.toolbutton9.enabled:=false;{销售利润}
mainform.toolbutton11.enabled:=false;{查询}
mainform.toolbutton12.enabled:=false;{统计}
mainform.toolbutton14.enabled:=true;{帮助}
 main.hh:=1;
 main.ii:=2;
 main.kk:=0;
 form1.Release;
 {}
 end
 else
 begin
 if h>=3 then
 begin
 showmessage('输入的密码次数已超过三次，请重新登陆系统');
 mainform.close;
 end
 else
 begin
 if flatedit1.text='' then
 begin
 showmessage('用户名不能为空');
 end
 else
 if flatedit2.text='' then
 begin
 showmessage('密码不能为空');
 end
 else
 begin
 s1:=AnsiLowerCase(flatedit1.text);
 s2:=flatedit2.text;
 s2:=csh(s2);
 with data.usesquery do
 begin
 close;
 sql.Clear;
 sql.add('select * from uses');
 sql.add('where usename='+''''+s1+'''');
 prepare;
 open;
 end;
if data.usesQuery.RecordCount=0 then
begin
showmessage('没有这个用户名');
end
else
if data.usesQuery.FieldByName('usename').asstring=s1 then
begin
if not(data.usesquery.fieldbyname('usepw').asstring=s2) then
begin
h:=h+1;
i1:=3-h;
showmessage('密码错误，请重新输入！你还有'+IntToStr(i1)+'次');
end
else
begin
with data.usesQuery do
begin
 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;{帮助}
main.name:=fieldbyname('usename').asstring;
main.no:=fieldbyname('useno').asstring;
main.tp:=fieldbyname('usetype').asstring;
main.ii:=2;
main.kk:=1;
end;
form1.Release;
 {}
end;
end;




 end;
 end;

 end;
end;


procedure TForm1.FormCreate(Sender: TObject);

begin
h:=0;

end;


procedure TForm1.FlatEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 var
  i,i1:integer;
  s1,s2:string;
  begin
  helpcarsale(key);
 if  key=VK_RETURN   then
 begin
  with data.usestable do
 begin
 i:=0;
 first;
 while not eof do
 begin
 i:=i+1;
 next;
 end;
 end;
 if i=0 then
 begin
 showmessage('本系统还没有注册用户，请先注册用户');
 mainform.n12.enabled:=true; {用户信息}
 mainform.n10.enabled:=true; {帮助}
 mainform.n11.enabled:=true; {关于}
 mainform.n13.enabled:=false; {密码更改}
 mainform.n14.enabled:=false; {用户权限}
 mainform.n15.enabled:=false; {数据优化}
 mainform.n16.enabled:=false;  {数据备份}
 mainform.n17.enabled:=false;  {数据还原}
 mainform.n18.enabled:=false;  {车辆入库}
 mainform.n19.enabled:=false;  {库存}
 mainform.n20.Enabled:=false;  {车辆销售}
 mainform.n21.enabled:=false;  {销售利润}
 mainform.n22.Enabled:=false;  {查询}
 mainform.n23.enabled:=false;  {统计}
 mainform.n31.enabled:=false;  {车型}
 mainform.n32.enabled:=false;  {颜色}
 mainform.n33.enabled:=false;  {车辆来源}
 mainform.n34.enabled:=false;  {用户类型}
 mainform.toolbutton2.enabled:=false;{重新登陆}
mainform.toolbutton3.enabled:=false;{密码更改}
mainform.toolbutton5.enabled:=false;{入库}
mainform.toolbutton6.enabled:=false;{库存}
mainform.toolbutton8.enabled:=false;{车辆销售}
mainform.toolbutton9.enabled:=false;{销售利润}
mainform.toolbutton11.enabled:=false;{查询}
mainform.toolbutton12.enabled:=false;{统计}
mainform.toolbutton14.enabled:=true;{帮助}
 main.hh:=1;
 main.ii:=2;
 main.kk:=0;
 form1.Release;
 {}
 end
 else
 begin
 if h>=3 then
 begin
 showmessage('输入的密码次数已超过三次，请重新登陆系统');
 mainform.close;
 end
 else
 begin
 if flatedit1.text='' then
 begin
 showmessage('用户名不能为空');
 end
 else
 if flatedit2.text='' then
 begin
 showmessage('密码不能为空');
 end
 else
 begin
 s1:=AnsiLowerCase(flatedit1.text);
 s2:=flatedit2.text;
 s2:=csh(s2);
 with data.usesquery do
 begin
 close;
 sql.Clear;
 sql.add('select * from uses');
 sql.add('where usename='+''''+s1+'''');
 prepare;
 open;
 end;
if data.usesQuery.RecordCount=0 then
begin
showmessage('没有这个用户名');
end
else
if data.usesQuery.FieldByName('usename').asstring=s1 then
begin
if not(data.usesquery.fieldbyname('usepw').asstring=s2) then
begin
h:=h+1;
i1:=3-h;
showmessage('密码错误，请重新输入！你还有'+IntToStr(i1)+'次');
end
else
begin
with data.usesQuery do
begin
 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;{帮助}
main.name:=fieldbyname('usename').asstring;
main.no:=fieldbyname('useno').asstring;
main.tp:=fieldbyname('usetype').asstring;
main.ii:=2;
main.kk:=1;
end;
form1.Release;
 {}
end;
end;




 end;
 end;

 end;
 end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var shelpfile:string;
begin
 sHelpFile:=ExtractFilePath(Application.ExeName)+'cardata\carsale.chm';
ShellExecute(0,'open',pchar(shelpfile),nil,nil,SW_SHOWNORMAL);


end;


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

end.