unit34.~pas

本系统是SQL SERVER的管理系统

end;
if flatcombobox1.text='按季度统计' then
begin
if flatcombobox2.text='' then
begin
showmessage('请选择年份');
end
else
if flatcombobox3.text='' then
begin
showmessage('请选择季度');
end
else
begin
if flatcombobox3.text='春' then
begin
s1:=flatcombobox2.text+'-'+'1'+'-'+'1';
s2:=flatcombobox2.text+'-'+'3'+'-'+'31';
end;
if flatcombobox3.text='夏' then
begin
s1:=flatcombobox2.text+'-'+'4'+'-'+'1';
s2:=flatcombobox2.text+'-'+'6'+'-'+'30';
end;
if flatcombobox3.text='秋' then
begin
s1:=flatcombobox2.text+'-'+'7'+'-'+'1';
s2:=flatcombobox2.text+'-'+'9'+'-'+'30';
end;
if flatcombobox3.text='冬' then
begin
s1:=flatcombobox2.text+'-'+'10'+'-'+'1';
s2:=flatcombobox2.text+'-'+'12'+'-'+'31';
end;
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;
end;
end;

procedure TForm34.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form34.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 TForm34.FormShow(Sender: TObject);
begin
flatcombobox1.ItemIndex:=0;
flatcombobox2.show;
label2.Show;
flatcombobox3.hide;
flatcombobox4.hide;
label3.Hide;
label4.hide;
 with data.repertoryquery do
begin
close;
sql.clear;
sql.add('select * from repertory');
sql.add('where  buysell=false');
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 ');

   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 ');

prepare;
open;
end;
end;

procedure TForm34.epEfButton11Click(Sender: TObject);
begin
  data.repertoryquery.first;
epefbutton11.enabled:=false;
epefbutton12.enabled:=false;
epefbutton13.enabled:=true;
epefbutton14.enabled:=true;
end;

procedure TForm34.epEfButton12Click(Sender: TObject);
begin
data.repertoryquery.prior;
epefbutton11.enabled:=true;
epefbutton12.enabled:=true;
epefbutton13.enabled:=true;
epefbutton14.enabled:=true;
if data.repertoryquery.bof then
 begin
 epefbutton11.enabled:=false;
 epefbutton12.enabled:=false;
 end;
end;

procedure TForm34.epEfButton13Click(Sender: TObject);
begin
data.repertoryquery.next;
epefbutton11.enabled:=true;
epefbutton12.enabled:=true;
epefbutton13.enabled:=true;
epefbutton14.enabled:=true;
if data.repertoryquery.eof then
begin
epefbutton13.enabled:=false;
epefbutton14.enabled:=false;
end;
end;

procedure TForm34.epEfButton14Click(Sender: TObject);
begin
 data.repertoryquery.last;
epefbutton11.enabled:=true;
epefbutton12.enabled:=true;
epefbutton13.enabled:=false;
epefbutton14.enabled:=false;
end;

procedure TForm34.epEfButton15Click(Sender: TObject);
begin
data.repertoryquery.refresh;
epefbutton11.enabled:=true;
epefbutton12.enabled:=true;
epefbutton13.enabled:=true;
epefbutton14.enabled:=true;
end;

procedure TForm34.epEfButton6Click(Sender: TObject);
begin
 data.salequery.first;
epefbutton6.enabled:=false;
epefbutton7.enabled:=false;
epefbutton8.enabled:=true;
epefbutton9.enabled:=true;
end;

procedure TForm34.epEfButton7Click(Sender: TObject);
begin
data.salequery.prior;
epefbutton6.enabled:=true;
epefbutton7.enabled:=true;
epefbutton8.enabled:=true;
epefbutton9.enabled:=true;
if data.salequery.bof then
 begin
 epefbutton6.enabled:=false;
 epefbutton7.enabled:=false;
 end;
end;

procedure TForm34.epEfButton8Click(Sender: TObject);
begin
 data.salequery.next;
epefbutton6.enabled:=true;
epefbutton7.enabled:=true;
epefbutton8.enabled:=true;
epefbutton9.enabled:=true;
if data.salequery.eof then
begin
epefbutton8.enabled:=false;
epefbutton9.enabled:=false;
end;
end;

procedure TForm34.epEfButton9Click(Sender: TObject);
begin
  data.salequery.last;
epefbutton6.enabled:=true;
epefbutton7.enabled:=true;
epefbutton8.enabled:=false;
epefbutton9.enabled:=false;
end;

procedure TForm34.epEfButton10Click(Sender: TObject);
begin
data.salequery.refresh;
epefbutton6.enabled:=true;
epefbutton7.enabled:=true;
epefbutton8.enabled:=true;
epefbutton9.enabled:=true;
end;

procedure TForm34.epEfTrBtn8Click(Sender: TObject);
begin
form214.quickrep1.preview;
end;

procedure TForm34.epEfTrBtn6Click(Sender: TObject);
begin
form313.quickrep1.preview;
end;

procedure TForm34.epEfTrBtn4Click(Sender: TObject);
begin
form323.quickrep1.preview;
end;

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

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

procedure TForm34.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 TForm34.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 TForm34.epEfButton4Click(Sender: TObject);
begin
  data.profitquery.last;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=false;
epefbutton4.enabled:=false;
end;

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

end.