unit211.pas

本系统是SQL SERVER的管理系统

unit Unit211;

interface

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

type
  TForm211 = 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;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    FlatComboBox3: TFlatComboBox;
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatComboBox1Enter(Sender: TObject);
    procedure FlatComboBox2Enter(Sender: TObject);
    procedure FlatComboBox3Enter(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form211: TForm211;

implementation

uses Unit21, 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;
procedure TForm211.epEfTrBtn2Click(Sender: TObject);
begin
form21.enabled:=true;
form211.release;
end;

procedure TForm211.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form21.enabled:=true;
form211.Free;
end;

procedure TForm211.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 TForm211.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 TForm211.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 TForm211.FormShow(Sender: TObject);
begin
flatedit1.text:='';
flatedit2.text:='';
flatedit3.text:='';
flatedit4.text:='';
flatcombobox1.text:='';
flatcombobox2.text:='';
flatcombobox3.text:='';
end;

procedure TForm211.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
               showmessage('已经有这个序列号了，请重新输入');
               end
             else
             begin
              with data.repertorytable do
              begin
              insert;
              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;
              fieldbyname('buysell').value:=false;
               post;
               end;
              showmessage('保存完成，你可以再次输入');
              flatedit1.text:='';
              flatedit2.text:='';
              flatedit3.text:='';
              flatedit4.text:='';
              flatcombobox1.text:='';
              flatcombobox2.text:='';
              flatcombobox3.text:='';
              with data.repertoryQuery do
              begin
              close;
              sql.clear;
              sql.add('select * from repertory');
              sql.add('where buysell=false');
              prepare;
              open;
              end;
              
                   end;
            end;


end;

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

end.