unit311.~pas

本系统是SQL SERVER的管理系统

unit Unit311;

interface

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

type
  TForm311 = class(TForm)
    GroupBox1: TGroupBox;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatEdit3: TFlatEdit;
    FlatEdit4: TFlatEdit;
    FlatEdit5: TFlatEdit;
    FlatEdit6: TFlatEdit;
    FlatEdit7: TFlatEdit;
    FlatEdit8: TFlatEdit;
    FlatEdit9: TFlatEdit;
    FlatEdit10: TFlatEdit;
    FlatEdit11: TFlatEdit;
    FlatEdit12: TFlatEdit;
    FlatEdit13: TFlatEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    epEfTrBtn3: TepEfTrBtn;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    epEfButton1: TepEfButton;
    epEfButton2: TepEfButton;
    epEfButton3: TepEfButton;
    epEfButton4: TepEfButton;
    epEfTrBtn4: TepEfTrBtn;
    epEfTrBtn5: TepEfTrBtn;
    epEfTrBtn6: TepEfTrBtn;
    GroupBox4: TGroupBox;
    epEfTrBtn7: TepEfTrBtn;
    epEfTrBtn8: TepEfTrBtn;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    FlatEdit14: TFlatEdit;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure epEfTrBtn8Click(Sender: TObject);
    procedure FlatComboBox2Enter(Sender: TObject);
    procedure FlatComboBox1Exit(Sender: TObject);
    procedure epEfTrBtn7Click(Sender: TObject);
    procedure epEfButton1Click(Sender: TObject);
    procedure epEfButton2Click(Sender: TObject);
    procedure epEfButton3Click(Sender: TObject);
    procedure epEfButton4Click(Sender: TObject);
    procedure epEfTrBtn4Click(Sender: TObject);
    procedure epEfTrBtn6Click(Sender: TObject);
    procedure epEfTrBtn5Click(Sender: TObject);
    procedure epEfTrBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form311: TForm311;

implementation

uses cardata, Unit31;

{$R *.DFM}

procedure TForm311.epEfTrBtn2Click(Sender: TObject);
begin
form31.enabled:=true;
form311.release;
                       with data.salequery do
                            begin
                            close;
                            sql.clear;
                            sql.add('select sale.*,repertory.* from sale,repertory,repsa');
                            sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number');
                             prepare;
                            open;
end;
if data.salequery.RecordCount=0 then
begin
form31.epeftrbtn2.enabled:=false;
form31.epeftrbtn3.enabled:=false;
form31.epeftrbtn5.enabled:=false;
end
else
begin
form31.epeftrbtn2.enabled:=true;
form31.epeftrbtn3.enabled:=true;
form31.epeftrbtn5.enabled:=true;
end;
end;

procedure TForm311.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form31.enabled:=true;
form311.free;
end;

procedure TForm311.FormShow(Sender: TObject);
begin
flatedit1.text:='';
flatedit2.text:='';
flatedit3.text:='';
flatedit4.text:='';
flatedit5.text:='';
flatedit6.text:='';
flatedit7.text:='';
flatedit8.text:='';
flatedit9.text:='';
flatedit10.text:='';
flatedit11.text:='';
flatedit12.text:='';
flatedit13.text:='';
flatedit14.text:='';
flatcombobox1.text:='';
flatcombobox2.text:='';
 groupbox1.show;
 groupbox3.hide;
 groupbox4.hide;
 dbgrid1.Height:=241;
end;

procedure TForm311.epEfTrBtn1Click(Sender: TObject);
var i1,i2,i3,i,k:integer;
begin
i1:=2;
i2:=2;
i3:=length(flatedit3.text);
 for i:=1 to i3 do
 begin
 if not((flatedit3.text[i]>='0') and (flatedit3.text[i]<='9')) then
 k:=1;
 end;
if flatedit1.text='' then
   begin
   showmessage('合同号不能为空，请输入');
   end
else
   if flatedit2.text='' then
       begin
       showmessage('客户名称不能为空，请输入');
       end
   else
      if flatedit3.text='' then
         begin
         showmessage('身份证号不能为空，请输入');
         end
      else
         if flatedit4.text='' then
            begin
            showmessage('地址不能为空，请输入');
            end
         else
           if flatedit5.text='' then
              begin
              showmessage('车牌号不能为空，请输入');
              end
            else
              if flatedit6.text='' then
                 begin
                 showmessage('联系电话不能为空,请输入');
                 end
               else
                  if k=1 then
                     begin
                     showmessage('身份证输入错误，请检查');
                     end
                  else
                    if not((i3=15)or(i3=18)) then
                       begin
                       showmessage('身份证输入的长度错误');
                       end
                     else
                     if flatedit7.text='' then
                      begin
                      showmessage('请选择车辆信息');
                       end
                      else
                   begin
                    with data.saletable  do
                      begin
                      first;
                      while not eof do
                      begin
                       if fieldbyname('comno').asstring=flatedit1.text then
                       i1:=1;
                       if fieldbyname('carno').asstring=flatedit5.text then
                       i2:=1;
                       next;
                      end;
                      end;
                      if i1=1 then
                        begin
                        showmessage('已经有这个合同号，请重新输入');
                        end
                      else
                        if i2=1 then
                         begin
                         showmessage('已经有这个车牌号，重新输入');
                         end
                         else
                           begin{ }
                           try
                            data.database.startTransaction;
                            with data.saletable do
                            begin
                            insert;
                            fieldbyname('comno').asstring:=flatedit1.text;
                            fieldbyname('cname').asstring:=flatedit2.text;
                            fieldbyname('tel').asstring:=flatedit6.text;
                            fieldbyname('nameno').asstring:=flatedit3.text;
                            fieldbyname('address').asstring:=flatedit4.text;
                            fieldbyname('saledate').value:=datetimepicker1.date;
                            fieldbyname('carno').asstring:=flatedit5.text;
                            fieldbyname('salesell').value:=false;
                            fieldbyname('sell').value:=false;
                            post;
                            end;
                            with data.repsatable do
                            begin
                            insert;
                            fieldbyname('comno').asstring:=flatedit1.text;
                            fieldbyname('number').asstring:=flatedit7.text;
                            post;
                            end;
                            with data.repertorytable do
                            begin
                            first;
                            while not eof do
                            begin
                            if fieldbyname('number').asstring=flatedit7.text then
                            begin
                            edit;
                            fieldbyname('buysell').value:=true;
                            post;

                            end;
                            next;
                            end;
                            end;



                           data.database.commit;
                            showmessage('保存完成，你可以再次输入');
                            flatedit1.text:='';
                            flatedit2.text:='';
                            flatedit3.text:='';
                            flatedit4.text:='';
                            flatedit5.text:='';
                            flatedit6.text:='';
                            flatedit7.text:='';
                            flatedit8.text:='';
                            flatedit9.text:='';
                            flatedit10.text:='';
                            flatedit11.text:='';
                            flatedit12.text:='';
                            flatedit13.text:='';
                           with data.salequery do
                            begin
                            close;
                            sql.clear;
                            sql.add('select sale.*,repertory.* from sale,repertory,repsa');
                            sql.Add('where sale.comno=repsa.comno and repsa.number=repertory.number');
                             prepare;
                            open;
                            end;
                              if data.salequery.RecordCount=0 then
                              begin
                              form31.epeftrbtn2.enabled:=false;
                              form31.epeftrbtn3.enabled:=false;
                              form31.epeftrbtn5.enabled:=false;
                               end
                             else
                             begin
                              form31.epeftrbtn2.enabled:=true;
                               form31.epeftrbtn3.enabled:=true;
                             form31.epeftrbtn5.enabled:=true;
                               end;
                            finally

                           end;

                         end;
                   end;
end;

procedure TForm311.epEfTrBtn8Click(Sender: TObject);
begin
  groupbox4.Hide;
   dbgrid1.Height:=241;
   epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;

procedure TForm311.FlatComboBox2Enter(Sender: TObject);

begin
if flatcombobox1.text='车型' then
begin
flatcombobox2.maxlength:=30;
flatcombobox2.items.clear;
with data.cartypetable do
begin
first;
while not eof do
begin
flatcombobox2.items.add(fieldbyname('cartype').asstring);
next;
end;
end;
end;
if flatcombobox1.text='颜色' then
begin
flatcombobox2.MaxLength:=10;
 flatcombobox2.items.clear;
with data.colortable do
begin
first;
while not eof do
begin
flatcombobox2.items.add(fieldbyname('color').asstring);
next;
end;
end;
end;
if flatcombobox1.text='车辆来源' then
begin
flatcombobox2.MaxLength:=100;
flatcombobox2.items.clear;
with data.springtable do
begin
first;
while not eof do
begin
flatcombobox2.items.add(fieldbyname('spring').asstring);
next;
end;
end;
end;
end;


procedure TForm311.FlatComboBox1Exit(Sender: TObject);
begin
if flatcombobox1.text='车型' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.show;
 flatedit14.Hide;
 datetimepicker3.hide;
 datetimepicker4.hide;
 label18.hide;

 end;
 if flatcombobox1.text='颜色' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.show;
 flatedit14.Hide;
 datetimepicker3.hide;
 datetimepicker4.hide;