unit1111.pas

本系统是SQL SERVER的管理系统

unit Unit1111;

interface

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

type
  TForm1111 = 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 epEfTrBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure FlatComboBox1Enter(Sender: TObject);
    procedure FlatEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FlatEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FlatComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }


  public
    { Public declarations }
  end;

var
  Form1111: TForm1111;

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 TForm1111.epEfTrBtn2Click(Sender: TObject);
begin
form111.enabled:=true;
 form1111.release;
end;

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

procedure TForm1111.FormShow(Sender: TObject);
begin
flatedit1.text:='';
flatedit2.text:='';
flatedit3.text:='';
flatedit4.text:='';
flatcombobox1.text:='';
end;

procedure TForm1111.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
           begin
             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;
            if i1=1 then
             begin
            showmessage('已经有这个编号');
              end
            else
           begin
             with data.usestable do
              begin
               first;
               while not eof  do
               begin
                if fieldbyname('usename').asstring=AnsiLowerCase(flatedit2.text) then
                 begin
                 i2:=1;
                   end;
                   next;
                 end;
               end;
                if i2=1 then
                begin
               showmessage('已经有这个用户名');
               end
               else
               begin
                if not(flatedit3.text=flatedit4.text) then
                begin
                  showmessage('两次输入的密码不一样，请重新输入');
                end
                else
                begin
                 s1:=csh(flatedit3.text);
                  with data.usestable do
               begin
               insert;
             fieldbyname('useno').asstring:=flatedit1.text;
             fieldbyname('usename').asstring:=AnsiLowerCase(flatedit2.text);
             fieldbyname('usetype').asstring:=flatcombobox1.text;
             fieldbyname('usepw').asstring:=s1;
              fieldbyname('f11').value:=true;
              fieldbyname('f12').value:=true;
              fieldbyname('f13').value:=true;
              fieldbyname('f21').value:=true;
              fieldbyname('f22').value:=true;
              fieldbyname('f23').value:=true;
              fieldbyname('d1').value:=true;
              fieldbyname('d2').value:=true;
              fieldbyname('s1').value:=true;
              fieldbyname('s2').value:=true;
              fieldbyname('g1').value:=true;
              fieldbyname('g2').value:=true;
              fieldbyname('i1').value:=true;
              fieldbyname('i2').value:=true;
               fieldbyname('i3').value:=true;
              fieldbyname('i4').value:=true;
             fieldbyname('h1').value:=true;
            fieldbyname('h2').value:=true;
              post;
              end;
            flatedit1.text:='';
            flatedit2.text:='';
            flatedit3.text:='';
            flatedit4.text:='';
            flatcombobox1.text:='';
            showmessage('保存完成，你可以再次输入！');
                end;
               end;
                end;


 end;
 end;


procedure TForm1111.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 TForm1111.FlatEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
helpcarsale(key);
end;

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

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

end.