unit34.~pas

本系统是SQL SERVER的管理系统

unit Unit34;

interface

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

type
  TForm34 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    FlatComboBox1: TFlatComboBox;
    FlatComboBox2: TFlatComboBox;
    Label5: TLabel;
    FlatComboBox3: TFlatComboBox;
    Label3: TLabel;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    FlatComboBox4: TFlatComboBox;
    Label4: TLabel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    epEfButton1: TepEfButton;
    epEfButton2: TepEfButton;
    epEfButton3: TepEfButton;
    epEfButton4: TepEfButton;
    epEfButton5: TepEfButton;
    epEfTrBtn4: TepEfTrBtn;
    epEfButton6: TepEfButton;
    epEfButton7: TepEfButton;
    epEfButton8: TepEfButton;
    epEfButton9: TepEfButton;
    epEfButton10: TepEfButton;
    epEfTrBtn6: TepEfTrBtn;
    epEfButton11: TepEfButton;
    epEfButton12: TepEfButton;
    epEfButton13: TepEfButton;
    epEfButton14: TepEfButton;
    epEfButton15: TepEfButton;
    epEfTrBtn8: TepEfTrBtn;
    procedure FlatComboBox1Change(Sender: TObject);
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure epEfButton11Click(Sender: TObject);
    procedure epEfButton12Click(Sender: TObject);
    procedure epEfButton13Click(Sender: TObject);
    procedure epEfButton14Click(Sender: TObject);
    procedure epEfButton15Click(Sender: TObject);
    procedure epEfButton6Click(Sender: TObject);
    procedure epEfButton7Click(Sender: TObject);
    procedure epEfButton8Click(Sender: TObject);
    procedure epEfButton9Click(Sender: TObject);
    procedure epEfButton10Click(Sender: TObject);
    procedure epEfTrBtn8Click(Sender: TObject);
    procedure epEfTrBtn6Click(Sender: TObject);
    procedure epEfTrBtn4Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure epEfButton1Click(Sender: TObject);
    procedure epEfButton2Click(Sender: TObject);
    procedure epEfButton3Click(Sender: TObject);
    procedure epEfButton4Click(Sender: TObject);
    procedure epEfButton5Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form34: TForm34;

implementation

uses cardata,main, Unit214, Unit313, 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 TForm34.FlatComboBox1Change(Sender: TObject);
begin
if flatcombobox1.text='按年度统计' then
begin
flatcombobox2.show;
label2.show;
flatcombobox3.hide;
flatcombobox4.hide;
label3.hide;
label4.hide;
end;
if flatcombobox1.text='按月度统计' then
begin
flatcombobox2.show;
label2.show;
flatcombobox3.hide;
flatcombobox4.show;
label3.hide;
label4.show;
end;
if flatcombobox1.text='按季度统计' then
begin
flatcombobox2.show;
label2.show;
flatcombobox3.show;
flatcombobox4.hide;
label3.show;
label4.hide;
end;

end;

procedure TForm34.epEfTrBtn2Click(Sender: TObject);
begin
form34.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 TForm34.epEfTrBtn1Click(Sender: TObject);
var
 s1,s2,s3:string;
 d1,d2:tdatetime;
  year:integer;
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+'-'+'1'+'-'+'1';
s2:=flatcombobox2.text+'-'+'12'+'-'+'31';
d1:=StrToDate(s1);
d2:=StrToDate(s2);

 with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where cdate between :adate and :bdate and buysell=false');
parambyname('adate').asdatetime:=d1;
parambyname('bdate').asdatetime:=d2;
prepare;
open;
end;

 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 and cdate between :adate and :bdate');
   parambyname('adate').asdatetime:=d1;
   parambyname('bdate').asdatetime:=d2;
   prepare;
   open;
end;


 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 cdate between :adate and :bdate');
parambyname('adate').asdatetime:=d1;
parambyname('bdate').asdatetime:=d2;
prepare;
open;
end;

{       }
end;


end;
if flatcombobox1.text='按月度统计' then
begin
if flatcombobox2.text='' then
begin
showmessage('请选择年份');
end
else
if flatcombobox4.text='' then
begin
showmessage('请选择月份');
end
else
begin
if flatcombobox4.text='1' then
  begin
  s3:='31';
  end;
if flatcombobox4.text='2' then
begin
year:=StrToInt(flatcombobox2.text);
 if ( (year mod 4 =0) and  (not(year mod 100 =0 )) ) or (year mod 400=0) then
 begin
 s3:='29';
 end
 else
 begin
 s3:='28';
 end;
end;
if flatcombobox4.text='3' then
begin
s3:='31';
end;
if flatcombobox4.text='4' then
begin
s3:='30';
end;
if flatcombobox4.text='5' then
begin
s3:='31';
end;
if flatcombobox4.text='6' then
begin
s3:='30';
end;
if flatcombobox4.text='7' then
begin
s3:='31';
end;
if flatcombobox4.text='8' then
begin
s3:='31';
end;
if flatcombobox4.text='9' then
begin
s3:='30';
end;
if flatcombobox4.text='10' then
begin
s3:='31';
end;
if flatcombobox4.text='11' then
begin
s3:='30';
end;
if flatcombobox4.text='12' then
begin
s3:='31';
end;
s1:=flatcombobox2.text+'-'+flatcombobox4.text+'-'+'1';
s2:=flatcombobox2.text+'-'+flatcombobox4.text+'-'+s3;
d1:=StrToDate(s1);
d2:=StrToDate(s2);

with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where cdate between :adate and :bdate and buysell=false');
parambyname('adate').asdatetime:=d1;
parambyname('bdate').asdatetime:=d2;
prepare;
open;
end;

 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 and cdate between :adate and :bdate');
   parambyname('adate').asdatetime:=d1;
   parambyname('bdate').asdatetime:=d2;
   prepare;
   open;
end;


 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 cdate between :adate and :bdate');
parambyname('adate').asdatetime:=d1;
parambyname('bdate').asdatetime:=d2;
prepare;
open;
end;


{ }
end;