【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:spxsbb.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit spxsbb;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, spbsbb, DB, RpDefine, RpBase, RpSystem, ComCtrls, StdCtrls,
Grids, DBGrids, Buttons, ExtCtrls,spxsdysz;
type
Tf_spxsbb = class(Tf_spbsbb)
procedure zdChange(Sender: TObject); override;
procedure FormCreate(Sender: TObject);override;
procedure cxClick(Sender: TObject);override;
procedure RprinterPrint(Sender: TObject); override;
procedure ylClick(Sender: TObject);override;
private
{ Private declarations }
public
{ Public declarations }
end;
RFont = Record //设置字体
RFontName: String;
RFontSize: Integer;
RFontColor: Integer;
RFontStyle: TFontStyles;
End;
RContent = ReCord //设置正文
TitleHeight: Real; //标题高度
BtHeight: Real;//表头与标题的间距
Bgjj: Real;//表格与表头的间距
Czyjj: real;//操作员与其标签的水平距离
sjjj: real;//时间与其标签的水平距离
Bgdqfs: integer;//表格内容的对齐方式 0居左,1居右,2居中
end;
var
f_spxsbb: Tf_spxsbb;
TempField: String ='';
Sumzdkd: real=0.0;// 字段总宽度
Rowzdkd: Real=0.0;//每行字段总宽度
zbj: real=0.0; //正文左边距
Content: RContent;
AZdmc: Array[0..12]of String=('销售票号','库存名称','商品代码','商品名称','基本单位','数量','标准售价','折扣','税率','税额','无折让金额','金额','保质期');
AZdkd : Array[0..12]of Real=(1,1,1,1,1,1,1,1,1,1,1,1,1); //数组中的元素对应表格中相应字段的宽度
zds : integer = 13;//表格字段数
Cols: integer = 7;//每行列数
bbtilte: String = '';
TitleFont,BtFont,BgtitleFont,BgFont: RFont;//读取或设置标题,表头,表格字体,表格标题字体
implementation
uses DataModal;
{$R *.dfm}
procedure Tf_spxsbb.zdChange(Sender: TObject);
begin
if Trim(zd.Text)<>'' then
begin
zhi.Clear;
Case zd.ItemIndex of
0: TempField := 'xsph';
1: TempField := 'spdm';
2: TempField := 'spmc';
3: TempField := 'kcmc';
end;
if TempField<>'spmc' then
begin
with Data.Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select distinct '+ TempField + ' From t_xsmx');
Open;
end;
end
else
begin
with Data.Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select distinct '+ TempField + ' From t_spjcxx');
Open;
end;
end;
while Not Data.Query1.Eof do
begin
zhi.Items.Add(Trim(Data.Query1.Fields[0].AsString));
Data.Query1.Next;
end;
end;
end;
procedure Tf_spxsbb.FormCreate(Sender: TObject);
var
i: Integer;
begin
qssj.DateTime := Now;
zzsj.DateTime := Now;
bbtitle := '商品销售报表';
zds := 13;
cols := 7;
Sumzdkd := 0;
For i := 0 to zds-1 do
begin
Azdkd[i]:= 1;
sumzdkd := Sumzdkd+ Azdkd[i];
end;
Rowzdkd := Cols*(Sumzdkd/13);
with TitleFont do
begin
RFontName := '宋体';
RFontSize := 18;
RFontColor := clRed;
RFontStyle := [];
end;
with BtFont do
begin
RFontName := '宋体';
RFontSize := 10;
RFontColor := clBlue;
RFontStyle := [];
end;
with BgFont do
begin
RFontName := '宋体';
RFontSize := 10;
RFontColor := clBlue;
RFontStyle := [];
end;
with BgtitleFont do
begin
RFontName := '宋体';
RFontSize := 12;
RFontColor := clBlue;
RFontStyle := [fsBold];
end;
with Content do
begin
TitleHeight := 0.8;
BtHeight := 0.4;
Bgjj := 0.4;
Czyjj := 0.8;
sjjj := 0.8;
Bgdqfs := 0;//表格居左对齐
end;
end;
procedure Tf_spxsbb.cxClick(Sender: TObject);
begin
if check1.Checked = True then
begin
if (Trim(zd.Text)<>'')and(Trim(zhi.Text)<>'') then
begin
if check2.Checked = False then
begin
with Data.Query2 do
begin
Close;
SQL.Clear;
if TempField <>'spmc' then
SQL.Add('select aa.xsph,aa.kcmc,aa.spdm,bb.spmc,aa.jbdw,aa.num,aa.bzsj,aa.zk,aa.sl,aa.se,aa.wzrje,aa.je,aa.bzq from t_xsmx aa inner join t_spjcxx bb on aa.spdm = bb.spdm and aa.'+TempField + ' =:a')
else
SQL.Add('select aa.xsph,aa.kcmc,aa.spdm,bb.spmc,aa.jbdw,aa.num,aa.bzsj,aa.zk,aa.sl,aa.se,aa.wzrje,aa.je,aa.bzq from t_xsmx aa inner join t_spjcxx bb on aa.spdm = bb.spdm and bb.'+TempField + ' =:a');
ParamByName('a').AsString := Trim(zhi.Text);
Open;
end;
if Data.Query2.RecordCount>0 then
begin
DataSource1.DataSet := Data.Query2;
dy.Enabled := True;
end
else
begin
DataSource1.DataSet := Nil;
dy.Enabled := False;
Application.MessageBox('没有符合条件的记录.','提示',64);
end;
end
else
begin
if zzsj.DateTime<qssj.DateTime then
begin
Application.MessageBox('起始时间不能大于终止时间.','提示',64);
Exit;
end;
with Data.Query2 do
begin
Close;
SQL.Clear;
if TempField <>'spmc' then
SQL.Add('select a.xsph,a.kcmc,a.spdm,b.spmc,a.jbdw,a.num,a.bzsj