unit32.~pas

本系统是SQL SERVER的管理系统

unit Unit32;

interface

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

type
  TForm32 = class(TForm)
    DBGrid1: TDBGrid;
    epEfButton1: TepEfButton;
    epEfButton2: TepEfButton;
    epEfButton3: TepEfButton;
    epEfButton4: TepEfButton;
    epEfButton5: TepEfButton;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    epEfTrBtn3: TepEfTrBtn;
    epEfTrBtn4: TepEfTrBtn;
    epEfTrBtn5: TepEfTrBtn;
    epEfTrBtn6: TepEfTrBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    FlatEdit1: TFlatEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    sncCurrencyEdit1: TsncCurrencyEdit;
    sncCurrencyEdit2: TsncCurrencyEdit;
    epEfTrBtn7: TepEfTrBtn;
    epEfTrBtn8: TepEfTrBtn;
    procedure epEfTrBtn6Click(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 epEfButton5Click(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure epEfTrBtn3Click(Sender: TObject);
    procedure epEfTrBtn4Click(Sender: TObject);
    procedure epEfTrBtn8Click(Sender: TObject);
    procedure FlatComboBox2Enter(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure epEfTrBtn7Click(Sender: TObject);
    procedure FlatComboBox1Change(Sender: TObject);
    procedure epEfTrBtn5Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form32: TForm32;

implementation

uses cardata, Unit321, Unit322,main, Unit323;

{$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 TForm32.epEfTrBtn6Click(Sender: TObject);
begin
form32.Release;
with data.usesquery do
 begin
 close;
 sql.Clear;
 sql.add('select * from uses');
 sql.add('where usename='+''''+main.name+'''');
 prepare;
 open;
 mainform.n12.enabled:=fieldbyname('f11').value; {用户信息}
 mainform.n10.enabled:=fieldbyname('h1').value; {帮助}
 mainform.n11.enabled:=fieldbyname('h2').value; {关于}
 mainform.n13.enabled:=fieldbyname('f12').value; {密码更改}
 mainform.n14.enabled:=fieldbyname('f13').value; {用户权限}
 mainform.n15.enabled:=fieldbyname('f21').value;{数据优化}
 mainform.n16.enabled:=fieldbyname('f22').value;  {数据备份}
 mainform.n17.enabled:=fieldbyname('f23').value;  {数据还原}
 mainform.n18.enabled:=fieldbyname('d1').value;  {车辆入库}
 mainform.n19.enabled:=fieldbyname('d2').value;  {库存}
 mainform.n20.Enabled:=fieldbyname('s1').value;  {车辆销售}
 mainform.n21.enabled:=fieldbyname('s2').value; {销售利润}
 mainform.n22.Enabled:=fieldbyname('g1').value; {查询}
 mainform.n23.enabled:=fieldbyname('g2').value; {统计}
 mainform.n31.enabled:=fieldbyname('i1').value;  {车型}
 mainform.n32.enabled:=fieldbyname('i2').value; {颜色}
 mainform.n33.enabled:=fieldbyname('i3').value;  {车辆来源}
 mainform.n34.enabled:=fieldbyname('i4').value;  {用户类型}
 mainform.toolbutton2.enabled:=true;{重新登陆}
mainform.toolbutton3.enabled:=fieldbyname('f12').value;{密码更改}
mainform.toolbutton5.enabled:=fieldbyname('d1').value;{入库}
mainform.toolbutton6.enabled:=fieldbyname('d2').value;{库存}
mainform.toolbutton8.enabled:=fieldbyname('s1').value;{车辆销售}
mainform.toolbutton9.enabled:=fieldbyname('s2').value;{销售利润}
mainform.toolbutton11.enabled:=fieldbyname('g1').value;{查询}
mainform.toolbutton12.enabled:=fieldbyname('g2').value;{统计}
mainform.toolbutton14.enabled:=fieldbyname('h1').value;{帮助}
 end;
end;

procedure TForm32.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form32.free;
with data.usesquery do
 begin
 close;
 sql.Clear;
 sql.add('select * from uses');
 sql.add('where usename='+''''+main.name+'''');
 prepare;
 open;
 mainform.n12.enabled:=fieldbyname('f11').value; {用户信息}
 mainform.n10.enabled:=fieldbyname('h1').value; {帮助}
 mainform.n11.enabled:=fieldbyname('h2').value; {关于}
 mainform.n13.enabled:=fieldbyname('f12').value; {密码更改}
 mainform.n14.enabled:=fieldbyname('f13').value; {用户权限}
 mainform.n15.enabled:=fieldbyname('f21').value;{数据优化}
 mainform.n16.enabled:=fieldbyname('f22').value;  {数据备份}
 mainform.n17.enabled:=fieldbyname('f23').value;  {数据还原}
 mainform.n18.enabled:=fieldbyname('d1').value;  {车辆入库}
 mainform.n19.enabled:=fieldbyname('d2').value;  {库存}
 mainform.n20.Enabled:=fieldbyname('s1').value;  {车辆销售}
 mainform.n21.enabled:=fieldbyname('s2').value; {销售利润}
 mainform.n22.Enabled:=fieldbyname('g1').value; {查询}
 mainform.n23.enabled:=fieldbyname('g2').value; {统计}
 mainform.n31.enabled:=fieldbyname('i1').value;  {车型}
 mainform.n32.enabled:=fieldbyname('i2').value; {颜色}
 mainform.n33.enabled:=fieldbyname('i3').value;  {车辆来源}
 mainform.n34.enabled:=fieldbyname('i4').value;  {用户类型}
 mainform.toolbutton2.enabled:=true;{重新登陆}
mainform.toolbutton3.enabled:=fieldbyname('f12').value;{密码更改}
mainform.toolbutton5.enabled:=fieldbyname('d1').value;{入库}
mainform.toolbutton6.enabled:=fieldbyname('d2').value;{库存}
mainform.toolbutton8.enabled:=fieldbyname('s1').value;{车辆销售}
mainform.toolbutton9.enabled:=fieldbyname('s2').value;{销售利润}
mainform.toolbutton11.enabled:=fieldbyname('g1').value;{查询}
mainform.toolbutton12.enabled:=fieldbyname('g2').value;{统计}
mainform.toolbutton14.enabled:=fieldbyname('h1').value;{帮助}
 end;
end;

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

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

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

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

procedure TForm32.epEfButton5Click(Sender: TObject);
begin
data.profitquery.refresh;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
end;

procedure TForm32.epEfTrBtn1Click(Sender: TObject);
begin
 with data.salequery1 do
 begin
 close;
 sql.clear;
 sql.add('select * from sale');
 sql.add('where salesell=false');
 prepare;
 open;
 end;
 if data.salequery1.RecordCount=0  then
 begin
 showmessage('没有可添加销售利润的销售合同');
 end
 else
 begin
 { }
 form321:=tform321.create(Application);
 form32.enabled:=false;
 end;
end;

procedure TForm32.epEfTrBtn2Click(Sender: TObject);
begin
if data.profitquery.RecordCount=0 then
begin
showmessage('没有可修改的记录，请查询来确认');
end
else
begin
if messagedlg('是否修改当前合同呢？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
 form322:=tform322.create(Application);
 form32.enabled:=false;
 form322.flatedit16.text:='';
 form322.snccurrencyedit1.value:=0;
 form322.snccurrencyedit2.value:=0;
 form322.snccurrencyedit3.value:=0;
 form322.snccurrencyedit4.value:=0;
 form322.snccurrencyedit5.value:=0;
 form322.snccurrencyedit6.value:=0;
with data.profitquery do
begin
 form322.flatedit16.text:=fieldbyname('comno').asstring;
 form322.snccurrencyedit1.value:=fieldbyname('salepr').value;
 form322.snccurrencyedit3.value:=fieldbyname('putpr').value;
 form322.snccurrencyedit2.value:=fieldbyname('loadpr').value;
 form322.snccurrencyedit4.value:=fieldbyname('otherpr').value;
 form322.snccurrencyedit5.value:=fieldbyname('passmon').value;
 form322.snccurrencyedit6.value:=fieldbyname('salemon').value;
end;

end;
end;
end;
procedure TForm32.epEfTrBtn3Click(Sender: TObject);
var s1:string;
begin
 if data.profitquery.RecordCount=0 then
 begin
 showmessage('没有可删除的记录，请查询来确认');
 end
 else
 begin
s1:=data.profitquery.FieldByName('comno').asstring;
if messagedlg('是否删除当然这条合同('+s1+')的销售记录',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
data.database.StartTransaction;
with data.profitTable do
begin
first;
while not eof do
begin
if  fieldbyname('comno').asstring=s1 then
begin
delete;
end
else
begin
next;
end;

end;
end;

with data.saleTable do
begin
first;
while not eof do
begin
if fieldbyname('comno').asstring=s1 then
begin
edit;
fieldbyname('salesell').value:=false;
fieldbyname('sell').value:=false;
post;
end;
next;
end;
end;

data.Database.Commit;
 with data.profitQuery do
begin
close;
sql.clear;
sql.add('select * from profit');
prepare;
open;
end;
showmessage('合同('+s1+')利润记录删除完成');
end;
end;
end;


procedure TForm32.epEfTrBtn4Click(Sender: TObject);
begin
  groupbox1.show;
 flatcombobox1.itemindex:=0;
 flatcombobox2.text:='';
 flatedit1.text:='';
 flatedit1.hide;
 flatcombobox2.show;
 datetimepicker1.hide;
 datetimepicker2.hide;
 label3.hide;
 snccurrencyedit1.hide;
 snccurrencyedit2.hide;

dbgrid1.height:=473;
epefbutton1.hide;
epefbutton2.hide;
epefbutton3.hide;
epefbutton4.hide;
epefbutton5.hide;
epeftrbtn1.hide;
epeftrbtn2.hide;
epeftrbtn3.hide;
epeftrbtn4.hide;
epeftrbtn5.hide;
epeftrbtn6.hide;
end;

procedure TForm32.epEfTrBtn8Click(Sender: TObject);
begin
groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
end;

procedure TForm32.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 TForm32.FormShow(Sender: TObject);
begin

groupbox1.hide;
dbgrid1.height:=521;
epefbutton1.show;
epefbutton2.show;
epefbutton3.show;
epefbutton4.show;
epefbutton5.show;
epeftrbtn1.Show;
epeftrbtn2.show;
epeftrbtn3.show;
epeftrbtn4.show;
epeftrbtn5.show;
epeftrbtn6.show;
with data.profitquery do
begin
close;
sql.clear;
sql.add('select profit.* from profit,sale,repsa,repertory');
sql.add('where profit.comno=sale.comno and sale.comno=repsa.comno and repsa.number=repertory.number ');
prepare;
open;
end;
end;

procedure TForm32.epEfTrBtn7Click(Sender: TObject);
var  s1:string;
     i1,i2,i3:integer;
     d1,d2:tdatetime;
     r1,r2:real;
begin
if (flatcombobox1.text='') or (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.profitquery do
begin
close;
sql.clear;
sql.add('select profit.* from profit,sale,repsa,repertory');
sql.add('where profit.comno=sale.comno and sale.comno=repsa.comno and repsa.number=repertory.number and cartype like'+''''+s1+'''');
prepare;
open;
end;

end;
end;
if flatcombobox1.text='颜色' then
begin
if flatcombobox2.text='' then
begin
showmessage('请选择或输入颜色');
end
else
begin
s1:=flatcombobox2.text;
with data.profitquery do
begin
close;
sql.clear;
sql.add('select profit.* from profit,sale,repsa,repertory');
sql.add('where profit.comno=sale.comno and sale.comno=repsa.comno and repsa.number=repertory.number and color like'+''''+s1+'''');
prepare;
open;
end;

end;
end;
if flatcombobox1.text='底盘号' then
begin
if flatedit1.text='' then
begin
showmessage('请输入底盘号');
end
else
begin
s1:=flatedit1.text;
with data.profitquery do
begin
close;
sql.clear;
sql.add('select profit.* from profit,sale,repsa,repertory');
sql.add('where profit.comno=sale.comno and sale.comno=repsa.comno and repsa.number=repertory.number and chassis like'+''''+s1+'''');
prepare;
open;
end;

end;
end;
if flatcombobox1.text='车牌号' then
begin
if flatedit1.text='' then
begin
showmessage('请输入车牌号');
end
else
begin
s1:=flatedit1.text;
with data.profitquery do
begin
close;
sql.clear;
sql.add('select profit.* from profit,sale,repsa,repertory');
sql.add('where profit.comno=sale.comno and sale.comno=repsa.comno and repsa.number=repertory.number and carno like'+''''+s1+'''');
prepare;
open;
end;

end;
end;
if flatcombobox1.text='发动机号' then
begin
if flatedit1.text='' then
begin
showmessage('请输入发动机号');
end
else
begin
s1:=flatedit1.text;
with data.profitquery do
begin
close;
sql.clear;
sql.add('select profit.* from profit,sale,repsa,repertory');
sql.add('where profit.comno=sale.comno and sale.comno=repsa.comno and repsa.number=repertory.number and motor like'+''''+s1+'''');
prepare;
open;
end;

end;
end;
if flatcombobox1.text='车辆来源' then
begin
if flatcombobox2.text='' then
begin
showmessage('请选择或输入车辆来源');
end
else
begin
s1:=flatcombobox2.text;
with data.profitquery do
begin
close;
sql.clear;
sql.add('select profit.* from profit,sale,repsa,repertory');
sql.add('where profit.comno=sale.comno and sale.comno=repsa.comno and repsa.number=repertory.number and spring like'+''''+s1+'''');
prepare;
open;
end;

end;
end;
if flatcombobox1.text='车主姓名' then
begin
if flatedit1.text='' then
begin
showmessage('请输入车主姓名');
end
else
begin
s1:=flatedit1.text;
with data.profitquery do
begin
close;
sql.clear;
sql.add('select profit.* from profit,sale,repsa,repertory');
sql.add('where profit.comno=sale.comno and sale.comno=repsa.comno and repsa.number=repertory.number and cname like'+''''+s1+'''');
prepare;
open;
end;