unit312.pas

本系统是SQL SERVER的管理系统

unit Unit312;

interface

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

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

var
  Form312: TForm312;
   a1,a2,a3:string;
implementation

uses cardata, Unit31;

{$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 TForm312.epEfTrBtn1Click(Sender: TObject);
begin
groupbox1.hide;
groupbox3.show;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where buysell=false');
prepare;
open;
end;
end;

procedure TForm312.epEfTrBtn3Click(Sender: TObject);
begin
form31.enabled:=true;
                    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;
form312.release;
end;

procedure TForm312.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form31.enabled:=true;
form312.Free;
end;

procedure TForm312.epEfButton1Click(Sender: TObject);
begin
 data.repertoryquery.first;
epefbutton1.enabled:=false;
epefbutton2.enabled:=false;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
end;

procedure TForm312.epEfButton2Click(Sender: TObject);
begin
 data.repertoryquery.prior;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
if data.repertoryquery.bof then
 begin
 epefbutton1.enabled:=false;
 epefbutton2.enabled:=false;
 end;
end;

procedure TForm312.epEfButton3Click(Sender: TObject);
begin
 data.repertoryquery.next;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
if data.repertoryquery.eof then
begin
epefbutton3.enabled:=false;
epefbutton4.enabled:=false;
end;
end;

procedure TForm312.epEfButton4Click(Sender: TObject);
begin
 data.repertoryquery.last;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=false;
epefbutton4.enabled:=false;
end;

procedure TForm312.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;
 label18.hide;

 end;
 if flatcombobox1.text='发动机号' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.hide;
 flatedit14.show;
 datetimepicker3.hide;
 datetimepicker4.hide;
 label18.hide;

 end;
 if  flatcombobox1.text='底盘号' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.hide;
 flatedit14.show;
 datetimepicker3.hide;
 datetimepicker4.hide;
 label18.hide;

 end;
 if flatcombobox1.text='序列号' then
 begin
 flatcombobox2.text:='';
 flatedit14.text:='';
 flatcombobox2.hide;
 flatedit14.show;
 datetimepicker3.hide;
 datetimepicker4.hide;
 label18.hide;

 end;
 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.hide;
 flatedit14.Hide;
 datetimepicker3.show;
 datetimepicker4.show;
 label18.show;


 end;
end;

procedure TForm312.epEfTrBtn4Click(Sender: TObject);
begin
epefbutton1.hide;
epefbutton2.hide;
epefbutton3.hide;
epefbutton4.hide;
epeftrbtn4.hide;
epeftrbtn5.hide;
epeftrbtn6.hide;
dbgrid1.Height:=180;
groupbox4.show;
end;

procedure TForm312.epEfTrBtn5Click(Sender: TObject);
begin
 
with data.repertoryquery do
begin
if recordcount=0 then
 begin
 showmessage('没有库存，请与仓库联系！');
 end
 else
 begin
flatedit7.text:=fieldbyname('number').asstring;
flatedit10.text:=fieldbyname('cartype').asstring;
flatedit8.text:=fieldbyname('chassis').asstring;
flatedit9.text:=fieldbyname('motor').asstring;
flatedit11.text:=fieldbyname('color').asstring;
flatedit12.text:=fieldbyname('spring').asstring;
flatedit13.text:=fieldbyname('cmemo').asstring;
datetimepicker2.date:=fieldbyname('cdate').value;
end;
end;
groupbox3.hide;
groupbox1.show;
end;

procedure TForm312.epEfTrBtn6Click(Sender: TObject);
begin
 groupbox3.hide;
groupbox1.show;
end;

procedure TForm312.epEfTrBtn7Click(Sender: TObject);
var s1:string;
     d1,d2:tdatetime;
begin
if flatcombobox1.text='' then
begin
showmessage('请选择查询的项目');
end
else
begin
if flatcombobox1.text='车型' then
begin
if  flatcombobox2.text='' then
begin
showmessage('请输入车型的查询条件');
end
else
begin
s1:=flatcombobox2.text;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where cartype ='+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
groupbox4.Hide;
   dbgrid1.Height:=241;
   epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{ }
end;
if flatcombobox1.text='颜色' then
begin
if  flatcombobox2.text='' then
begin
showmessage('请输入颜色的查询条件');
end
else
begin
s1:=flatcombobox2.text;
with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where color ='+''''+s1+''''+'and buysell=false');
prepare;
open;

end;
 groupbox4.Hide;
   dbgrid1.Height:=241;
    epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;
{ }
end;
if flatcombobox1.text='车辆来源' then
begin
 if  flatcombobox2.text='' then
begin
showmessage('请输入车辆来源的查询条件');
end
else
begin
s1:=flatcombobox2.text;
with data.repertoryquery do
begin
close;
sql.clear;