unit1112.~pas

本系统是SQL SERVER的管理系统

unit Unit1112;

interface

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

type
  TForm1112 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatComboBox1: TFlatComboBox;
    FlatEdit3: TFlatEdit;
    FlatEdit4: TFlatEdit;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    procedure FormShow(Sender: TObject);
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatComboBox1Enter(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure FlatEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    
  private
    { Private declarations }
   
  public
    { Public declarations }
  end;

var
  Form1112: TForm1112;
      a1:string;
implementation

uses Unit111, 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 TForm1112.FormShow(Sender: TObject);
begin
flatedit1.text:='';
flatedit2.text:='';
flatedit3.text:='';
flatedit4.text:='';
flatcombobox1.text:='';
end;

procedure TForm1112.epEfTrBtn2Click(Sender: TObject);
begin
 form111.enabled:=true;
 form1112.release;
end;

procedure TForm1112.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form111.enabled:=true;
form1112.Free;
end;

procedure TForm1112.FlatComboBox1Enter(Sender: TObject);
begin
flatcombobox1.Items.clear;
 with data.usetypetable do
begin
first;
while not eof do
begin
flatcombobox1.items.add(fieldbyname('usetype').asstring);
next;
end;
end;
end;

procedure TForm1112.epEfTrBtn1Click(Sender: TObject);
 var i1,i2:integer;
       s1:string;

begin
i1:=2;
i2:=2;
  if flatedit1.text='' then
     begin
     showmessage('请输入编号');
     end
  else
     if flatedit2.text='' then
      begin
      showmessage('请输入用户名');
      end
     else
       if flatcombobox1.text='' then
         begin
          showmessage('请选择用户类型');
         end
       else
          if (flatedit3.text='') or (flatedit4.text='') then
            begin
            showmessage('请输入密码');
           end
         else
           if not(flatedit3.text=flatedit4.text) then
                begin
                showmessage('两次输入的密码不一样，请重新输入');
                end
               else
               begin
               s1:=csh(flatedit3.text);
                  with data.usestable do
              begin
               first;
               while not eof  do
               begin
                if fieldbyname('useno').asstring=flatedit1.text then
                 begin
                 i1:=1;
                   end;
                   next;
                 end;
              end;
              with data.usestable do
              begin
               first;
               while not eof  do
               begin
                if (fieldbyname('usename').asstring=flatedit2.text)and (not(fieldbyname('useno').asstring=a1)) then
                 begin
                 i2:=1;
                   end;
                   next;
                 end;
               end;
               if i1=1 then
         begin
          if not(a1=flatedit1.text) then
           begin
           showmessage('已经有这个用户的编号，请重新输入');
           end
           else
           begin
          if messagedlg('是否进行修改？',mtconfirmation,[mbyes,mbno],0)=mryes then
             begin
               if i2=1 then
                begin
                 showmessage('已经有这个用户名了，请重新输入');
                end
                else
                begin
                     with data.usestable do
                          begin
                          first;
                       while not eof do
                       begin
                      if a1=fieldbyname('useno').asstring   then
                       begin
                       edit;
                        fieldbyname('useno').asstring:=flatedit1.text;
                        fieldbyname('usename').asstring:=AnsiLowerCase(flatedit2.text);
                        fieldbyname('usetype').asstring:=flatcombobox1.text;
                        fieldbyname('usepw').asstring:=s1;
                        post;
                       end ;
                       next;
                     end;
                     end;
                      showmessage('修改保存完成');
                    form111.enabled:=true;
                    form1112.Release;
                end;
                end;
              end;
         end
        else
        begin
         if i2=1 then
                begin
                 showmessage('已经有这个用户名了，请重新输入');
                end
                else
                begin
                   with data.usestable do
                          begin
                          first;
                       while not eof do
                       begin
                      if a1=fieldbyname('useno').asstring   then
                       begin
                       edit;
                        fieldbyname('useno').asstring:=flatedit1.text;
                        fieldbyname('usename').asstring:=flatedit2.text;
                        fieldbyname('usetype').asstring:=flatcombobox1.text;
                        fieldbyname('usepw').asstring:=s1;
                        post;
                       end;


                        next;
                     end;
                     end;
                      showmessage('修改保存完成');
                    form111.enabled:=true;
                    form1112.Release;
                end;

        end;




               end;

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

end.