📄 hysrxx.pas
字号:
unit hysrxx;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Db, DBTables, StdCtrls, Grids, DBGrids, Buttons, ComCtrls,
Series, TeEngine, TeeProcs, Chart, DBChart, ImgList;
type
ThyxxForm = class(TForm)
Panel2: TPanel;
DataSource1: TDataSource;
Panel1: TPanel;
Label1: TLabel;
Label3: TLabel;
begdate: TDateTimePicker;
begtime: TDateTimePicker;
enddate: TDateTimePicker;
endtime: TDateTimePicker;
S1: TStoredProc;
BitBtn2: TBitBtn;
GroupBox1: TGroupBox;
dy: TRadioButton;
RadioButton1: TRadioButton;
kk: TLabel;
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
lc: TComboBox;
TabSheet2: TTabSheet;
DBChart1: TDBChart;
Series1: TPieSeries;
TabSheet3: TTabSheet;
DBChart2: TDBChart;
Series2: TBarSeries;
DBGrid1: TDBGrid;
Query1: TQuery;
s2: TStoredProc;
Query2: TQuery;
Panel3: TPanel;
Splitter1: TSplitter;
GroupBox2: TGroupBox;
TreeView1: TTreeView;
TreeView2: TTreeView;
ImageList1: TImageList;
TreeView3: TTreeView;
Query3: TQuery;
Query4: TQuery;
Query5: TQuery;
Query6: TQuery;
procedure rbdateKeyPress(Sender: TObject; var Key: Char);
procedure rbdateKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure CreateItemList;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TreeView2Click(Sender: TObject);
procedure TreeView2Change(Sender: TObject; Node: TTreeNode);
private
{ Private declarations }
public
{ Public declarations }
end;
var
hyxxForm: ThyxxForm;
implementation
uses dataproc, srrbprin,cxmenu, Srbbpt;
{$R *.DFM}
procedure tree1;
begin
with hyxxform do
begin
treeview1.Items.Clear;
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from custype order by CusType');
query1.Prepare;
query1.Open;
QUERY1.First;
while not query1.Eof do
begin
// if (trim(query1.FieldByName('parentcode').asstring)='0') or (trim(query1.FieldByName('parentcode').asstring)='00') then
if (trim(query1.FieldByName('parentcode').asstring)='0') then
BEGIN
treeview1.Selected:=treeview1.Items.Add(treeview1.items.getfirstnode,trim(query1.FieldByName('CusType').asstring));
END
else
begin
while trim(treeview1.Selected.Text)<>trim(query1.FieldByName('parentcode').asstring) do
BEGIN
treeview1.Selected:=treeview1.Selected.Parent;
END;
treeview1.Selected:=treeview1.Items.AddChild(treeview1.selected,trim(query1.FieldByName('CusType').asstring));
end;
query1.Next;
end;
query1.Active:=false;
query1.SQL.Clear;
end;
end;
procedure ThyxxForm.FormShow(Sender: TObject);
begin
Panel1.Caption:=curper.sydw+'桑拿营业'+kk.Caption+'报表';
begdate.DateTime:=now-1;
if kk.Caption<>'' then
begin
enddate.Visible:=false;
endtime.Visible:=false;
begtime.Visible:=false;
Label1.Visible:=false;
Label3.Visible:=false;
begdate.Left:=strtoint(floattostr(int((Width-begdate.Width)/2)));
end;
enddate.DateTime:=now;
begtime.Date:=begdate.Date;
endtime.DateTime:=now;
begtime.Time:=strtotime('00:00:00');
endtime.Time:=strtotime('23:59:59');
BitBtn1Click(nil);
end;
procedure ThyxxForm.rbdateKeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;
procedure ThyxxForm.rbdateKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{ if key=112 then
if cxzmenu.Label4.Enabled then
begin
if xt=1 then help(10);
end
else
begin
if xt=1 then help(9);
end;
key:=0; }
end;
procedure ThyxxForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{ if key=112 then
if cxzmenu.Label4.Enabled then
begin
if xt=1 then help(10);
end
else
begin
if xt=1 then help(9);
end;
}
end;
procedure ThyxxForm.BitBtn1Click(Sender: TObject);
var ls,ls1:string;
begin
{ls:=formatdatetime('yyyy-mm-dd hh:mm:ss',begtime.time);
ls1:=formatdatetime('yyyy-mm-dd hh:mm:ss',endtime.time);}
ls:=formatdatetime('yyyy-MM-dd',begdate.date)+' '+formatdatetime('hh:mm:ss',begtime.time);
ls1:=formatdatetime('yyyy-MM-dd',enddate.date)+' '+formatdatetime('hh:mm:ss',endtime.time);
{ ls1:=formatdatetime('yyyy-mm-dd',enddate.date)+' '+formatdatetime('hh:mm:ss',endtime.time);
if (kk.Caption='日') then
begin
ls:=formatdatetime('yyyy-mm-dd',begdate.date)+' '+'08:00:00';
ls1:=formatdatetime('yyyy-mm-dd',begdate.date+1)+' '+'08:00:00';
end;
}
With DBChart1.Series[0] do
begin
DataSource:=Query1;
XlabelsSource:='Code';
YValues.ValueSource:='xiaoj';
end;
With DBChart2.Series[0] do
begin
DataSource:=Query1;
XlabelsSource:='Code';
YValues.ValueSource:='xiaoj';
end;
DataSource1.DataSet:=nil;
createItemList;
{if (kk.Caption='月') then
begin
ls:=formatdatetime('yyyy-mm',begdate.date)+'-01 '+'08:00:00';
ls1:=formatdatetime('yyyy-mm',begdate.date+30)+'-01 '+'08:00:00';
end; }
{ if curper.code<>'9999' then
begin
s1.Prepare;
s1.ParamByName ('@lsbegtime').asstring:=ls;
s1.ParamByName ('@lsendtime').asstring:=ls1;
s1.Prepare;
s1.ExecProc ;
end else
begin
s2.Prepare;
s2.ParamByName ('@lsbegtime').asstring:=ls;
s2.ParamByName ('@lsendtime').asstring:=ls1;
s2.Prepare;
s2.ExecProc ;
end; }
DataSource1.DataSet:=Query1;
With DBChart1.Series[0] do
begin
DataSource:=Query1;
XlabelsSource:='Code';
YValues.ValueSource:='xiaoj';
end;
With DBChart2.Series[0] do
begin
DataSource:=Query1;
XlabelsSource:='Code';
YValues.ValueSource:='xiaoj';
end;
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from jkmoney');
query1.Prepare;
query1.Open;
query1.Fields[0].Visible:=false;
query1.Fields[11].Visible:=false;
query1.fields[1].displaylabel:=' 项 目';
query1.fields[2].displaylabel:=' 数 量';
query1.fields[3].displaylabel:=' 现 金';
query1.fields[4].displaylabel:=' 会员卡';
query1.fields[5].displaylabel:=' 支 票';
query1.fields[6].displaylabel:=' 信用卡';
query1.fields[7].displaylabel:=' 记 帐';
query1.fields[8].displaylabel:=' 免 单';
query1.fields[9].displaylabel:=' 代金券';
query1.fields[10].displaylabel:=' 合 计';
DBGrid1.Fields[0].DisplayWidth:=12;
DBGrid1.Fields[1].DisplayWidth:=8;
DBGrid1.Fields[2].DisplayWidth:=8;
DBGrid1.Fields[3].DisplayWidth:=8;
DBGrid1.Fields[4].DisplayWidth:=8;
DBGrid1.Fields[5].DisplayWidth:=8;
end;
procedure ThyxxForm.BitBtn2Click(Sender: TObject);
begin
application.CreateForm(Tsrbbptform,srbbptform);
srbbptform.QRLabel1.Caption:=Panel1.Caption;
srbbptform.QRLabel23.Caption:=formatdatetime('yyyy''年''MM''月''dd''日''',begdate.date);
if (kk.Caption='') then
srbbptform.QRLabel23.Caption:=srbbptform.QRLabel23.Caption+' '+formatdatetime('hh''时''mm''分''ss''秒''',begtime.time)
+' 到 '+formatdatetime('yyyy''年''MM''月''dd''日''',enddate.date)+' '+formatdatetime('hh''时''mm''分''ss''秒''',endtime.time);
srbbptform.hide;
// srbbptform.QRLabel23.Caption:=copy(ComboBox1.Text,1,4)+'年'+copy(ComboBox1.Text,6,2)+'月'+copy(ComboBox1.Text,9,2)+'日';
srbbptform.QRSubDetail3.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText1.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText2.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText4.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText3.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText6.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText7.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText8.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText9.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText10.DataSet:=DataSource1.DataSet;
srbbptform.QRDBText11.DataSet:=DataSource1.DataSet;
srbbptform.hide;
if dy.Checked then
srbbptform.qr1.print
else
srbbptform.qr1.Preview;
// srbbptform.qr1.Preview;
srbbptform.free;
end;
procedure ThyxxForm.BitBtn3Click(Sender: TObject);
var jje,dje:array [0..20] of Currency;
kmdm,bmdm:array [0..20] of string;
i,bz:integer; mf:Currency;
begin
{f Application.MessageBox(pchar('是否保存新的'+kk.Caption+'报表？'),'提示信息', 36)<>6 then exit;
for i:=0 to 20 do
begin
jje[i]:=0;dje[i]:=0;kmdm[i]:='';bmdm[i]:='';
end;
if kk.Caption='日' then
begin
if Application.MessageBox('是否产生财务记帐凭证？','提示信息', 36)=6 then
begin
i:=0;
table1.First;
while table1.FieldByName('dm').asstring='02' do
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -