unit512.~pas

本系统是SQL SERVER的管理系统

unit Unit512;

interface

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

type
  Tform512 = class(TForm)
    Label1: TLabel;
    FlatEdit1: TFlatEdit;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form512: Tform512;
    a1:string;
implementation

uses cardata, Unit51;

{$R *.DFM}

procedure Tform512.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form51.enabled:=true;
form512.free;
end;

procedure Tform512.epEfTrBtn2Click(Sender: TObject);
begin
form51.enabled:=true;
form512.release;
end;

procedure Tform512.epEfTrBtn1Click(Sender: TObject);
var i1,i2:integer;
begin
i1:=2;
i2:=length(flatedit1.text);
 if flatedit1.text='' then
   begin
   showmessage('请输入车型');
   end
 else
   begin
     with data.cartypetable do
     begin
     first;
     while not eof  do
     begin
     if fieldbyname('cartype').asstring=flatedit1.text then
     begin
     i1:=1;
     end;
     next;
     end;
     end;
     if i1=1 then
       begin
      showmessage('已经有这种车型');
       end
     else
       begin
     if i2>30 then
       begin
       showmessage('输入的型号大于预定的长度');
       end
     else
        begin
     with data.cartypetable do
     begin
     first;
     while not eof do
     begin
     if a1=fieldbyname('cartype').asstring   then
     begin
     edit;
    fieldbyname('cartype').asstring:=flatedit1.text;
    post;
     end ;
     next;
     end;
     end;

   showmessage('保存完成');
   form51.enabled:=true;
   form512.Release;
 end;
 end;
 end;
 end;

end.