unit212.pas

本系统是SQL SERVER的管理系统

unit Unit212;

interface

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

type
  TForm212 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    FlatEdit1: TFlatEdit;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    DateTimePicker1: TDateTimePicker;
    FlatEdit2: TFlatEdit;
    FlatEdit3: TFlatEdit;
    FlatEdit4: TFlatEdit;
    FlatComboBox3: TFlatComboBox;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    procedure FlatComboBox1Enter(Sender: TObject);
    procedure FlatComboBox2Enter(Sender: TObject);
    procedure FlatComboBox3Enter(Sender: TObject);
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form212: TForm212;
     a1:string;
implementation

uses cardata, Unit21;

{$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 TForm212.FlatComboBox1Enter(Sender: TObject);
begin
flatcombobox1.items.clear;
with data.cartypetable do
begin
first;
while not eof do
begin
flatcombobox1.items.add(fieldbyname('cartype').asstring);
next;
end;
end;
end;

procedure TForm212.FlatComboBox2Enter(Sender: TObject);
begin
 flatcombobox2.items.clear;
with data.colortable do
begin
first;
while not eof do
begin
flatcombobox2.items.add(fieldbyname('color').asstring);
next;
end;
end;
end;

procedure TForm212.FlatComboBox3Enter(Sender: TObject);
begin
 flatcombobox3.items.clear;
with data.springtable do
begin
first;
while not eof do
begin
flatcombobox3.items.add(fieldbyname('spring').asstring);
next;
end;
end;
end;

procedure TForm212.epEfTrBtn2Click(Sender: TObject);
begin
form21.enabled:=true;
form212.release;
end;

procedure TForm212.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form21.enabled:=true;
form212.Release;
end;

procedure TForm212.epEfTrBtn1Click(Sender: TObject);
var i1:integer;
begin
i1:=2;
 if flatedit1.text='' then
   begin
   showmessage('请输入序列号');
   end
 else
    if flatcombobox1.text='' then
     begin
     showmessage('请选择车型');
     end
    else
      if flatedit2.text='' then
       begin
         showmessage('请输入底盘号');
       end
      else
        if flatedit3.text='' then
          begin
          showmessage('请输入发动机号');
          end
         else
           if flatcombobox2.text='' then
             begin
             showmessage('请选择颜色');
             end
            else
             if flatcombobox3.text='' then
                begin
                showmessage('请选择车辆来源');
                end
              else
              begin
                  with data.repertorytable do
                  begin
                    first;
                while not eof  do
               begin
              if fieldbyname('number').asstring=flatedit1.text then
                begin
                i1:=1;
                 end;
                 next;
                end;
                end;
               if i1=1 then
                 begin
                  if not(a1=flatedit1.text) then
                     begin
                     showmessage('请重新输入序列号,这个序列号已被使用');
                     end
                   else
                     begin
                      with data.repertorytable do
                      begin
                      first;
                      while not eof do
                      begin
                       if a1=fieldbyname('number').asstring then
                       begin
                       edit;
                        fieldbyname('number').asstring:=flatedit1.text;
                        fieldbyname('cartype').asstring:=flatcombobox1.text;
                        fieldbyname('motor').asstring:=flatedit3.text;
                        fieldbyname('chassis').asstring:=flatedit2.text;
                        fieldbyname('color').asstring:=flatcombobox2.text;
                        fieldbyname('cdate').value:=datetimepicker1.date;
                        fieldbyname('spring').asstring:=flatcombobox3.text;
                        fieldbyname('cmemo').asstring:=flatedit4.text;
                       post;
                       end;
                       next;
                      end;
                      end;
                       showmessage('修改保存完成');
                        with data.repertoryQuery do
                       begin
                       close;
                      sql.clear;
                    sql.add('select * from repertory');
                    sql.add('where buysell=false');
                    prepare;
                   open;
                   end;
                   form21.enabled:=true;
                    form212.release;
                     end;

                 end
                 else
                 begin
                   with data.repertorytable do
                      begin
                      first;
                      while not eof do
                      begin
                       if a1=fieldbyname('number').asstring then
                       begin
                       edit;
                        fieldbyname('number').asstring:=flatedit1.text;
                        fieldbyname('cartype').asstring:=flatcombobox1.text;
                        fieldbyname('motor').asstring:=flatedit3.text;
                        fieldbyname('chassis').asstring:=flatedit2.text;
                        fieldbyname('color').asstring:=flatcombobox2.text;
                        fieldbyname('cdate').value:=datetimepicker1.date;
                        fieldbyname('spring').asstring:=flatcombobox3.text;
                        fieldbyname('cmemo').asstring:=flatedit4.text;
                       post;
                       end;
                       next;
                      end;
                      end;
                       showmessage('修改保存完成');
                        with data.repertoryQuery do
                       begin
                       close;
                      sql.clear;
                    sql.add('select * from repertory');
                    sql.add('where buysell=false');
                    prepare;
                   open;
                   end;
                   form21.enabled:=true;
                    form212.release;
                     end;
                 end;
              
              

end;

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

end.