📄 chectcount.~pas
字号:
unit ChectCount;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, basedialog, ExtCtrls, StdCtrls, TFlatComboBoxUnit;
type
TChectCount_frm = class(Tbasedialog_form)
Panel5: TPanel;
Label2: TLabel;
Label3: TLabel;
Bevel2: TBevel;
Bevel6: TBevel;
Bevel3: TBevel;
Bevel4: TBevel;
Bevel5: TBevel;
Label4: TLabel;
Bevel7: TBevel;
Bevel8: TBevel;
Label5: TLabel;
Bevel9: TBevel;
Bevel10: TBevel;
Label6: TLabel;
Bevel11: TBevel;
Label8: TLabel;
Bevel12: TBevel;
Bevel13: TBevel;
Label9: TLabel;
Bevel14: TBevel;
Bevel15: TBevel;
Label10: TLabel;
Bevel16: TBevel;
Bevel17: TBevel;
Label11: TLabel;
Bevel18: TBevel;
Label12: TLabel;
Bevel19: TBevel;
Bevel20: TBevel;
Bevel21: TBevel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Bevel22: TBevel;
Bevel23: TBevel;
Bevel24: TBevel;
Bevel25: TBevel;
Label19: TLabel;
Bevel26: TBevel;
Bevel27: TBevel;
Label20: TLabel;
Label21: TLabel;
Bevel28: TBevel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Bevel29: TBevel;
Bevel30: TBevel;
Bevel31: TBevel;
Bevel32: TBevel;
Label26: TLabel;
Bevel33: TBevel;
Bevel34: TBevel;
Bevel35: TBevel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label33: TLabel;
Label34: TLabel;
Bevel36: TBevel;
Bevel37: TBevel;
Bevel38: TBevel;
Label35: TLabel;
Label36: TLabel;
Bevel39: TBevel;
Label37: TLabel;
Label38: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Memo1: TMemo;
Edit22: TEdit;
Edit23: TEdit;
FlatComboBox1: TFlatComboBox;
procedure FlatComboBox1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
procedure init;
public
psseno:string;
{ Public declarations }
end;
var
ChectCount_frm: TChectCount_frm;
implementation
uses datashare;
{$R *.dfm}
procedure TChectCount_frm.init;
begin
edit1.Text :=''; edit2.Text :=''; edit3.Text :='' ; edit4.Text :=''; edit5.Text :='';
edit6.Text :=''; edit7.Text :=''; edit8.Text :=''; edit9.Text :=''; edit10.Text :='';
edit11.Text :=''; edit12.Text :=''; edit13.Text :=''; edit14.Text :=''; edit15.Text :='';
edit16.Text :=''; edit17.Text :=''; edit18.Text :=''; edit19.Text :=''; edit20.Text :='';
edit21.Text :=''; edit22.Text :=''; edit23.Text :='';
memo1.Lines.Clear ;
end;
procedure TChectCount_frm.FlatComboBox1Change(Sender: TObject);
var
s:widestring;
begin
init;
with DataShare_frm.Query1 do
begin
close;
sql.Clear ; //累计缴费月数
sql.Add('select A.dept,B.yearno,A.psname,A.agcardno,A.iscode,isnull(B.months+B.wgmonup,0), ');
// cymonths+lymonths+lyremonths组成"其中本年缴费月数" 缴费基数,缴费情况, 累计储存额
sql.Add('isnull(cymonths,0) ,isnull(lymonths+lyremonths,0),wgnotes,ftnotes,isnull(lycpprin+lypsprin+lycpints+lypsints,0),');
// 个人部分储存额, 储存额本年利息,储存额本年利息个人部分,
sql.Add('isnull(lypsprin+lypsints,0),isnull(lycycpints+lycypsints,0),isnull(lycypsints,0),');
// 本息缴费单位划入 本年缴费个人部分 补缴单位划入 补缴个人划入 当年本金利息单位部分 当年本金利息个人部分
sql.Add('isnull(cyftcpfd+accpinup+splycpfd,0),isnull(cypsarac,0),isnull(cyrelycpac,0),isnull(cyrelypsarac+cyrelypsac,0),isnull(cycpints+accpinupints,0),isnull(cypsints+acpswginupints,0),');
//累计储存额
sql.Add('isnull(cyftcpfd+cyrelycpac+splycpfd+acpswginup+ cypsarac+cyrelypsarac+cyrelypsac+accpinup+cycpints+accpinupints+cypsints+acpswginupints+lycpprin+lycpints+lypsprin+lypsints+lycycpints+lycypsints,0),');
//累计储存额个人部分
sql.Add('isnull(acpswginup+cypsarac+cyrelypsarac+cyrelypsac+cypsints+acpswginupints+lypsprin+lypsints+lycypsints,0),');
// 本年欠缴额, 单位欠缴,备注
sql.Add('isnull(dbcpfd+dbpsfd,0),isnull(dbcpfd,0),B.notes from sbdb_psarch A,sbda_psagacct B');
sql.Add(' where A.psseno=B.psseno and B.yearno=:param1 and B.psseno=:param2');
s:=sql[0]+sql[1]+sql[2]+sql[3]+sql[4]+sql[5]+sql[6]+sql[7];
parambyname('param1').asstring:=FlatComboBox1.Items[FlatComboBox1.itemindex];
parambyname('param2').asstring:=psseno;
prepare;
open;
{showmessage(inttostr(DataShare_frm.Query1.RecordCount));
if recordcount>0 then
begin }
Edit1.Text :=Fields[0].AsString ;
Edit2.Text :=Fields[1].AsString ;
Edit3.Text :=trim(Fields[2].AsString);
edit4.Text :=trim(Fields[3].AsString);
Edit5.Text :=trim(Fields[4].AsString);
Edit6.Text :=trim(fields[5].AsString);
Edit7.Text :=trim(Fields[6].AsString)+'+'+trim(Fields[7].AsString);
Edit8.Text :=trim(Fields[8].AsString);
Edit9.Text :=trim(Fields[9].AsString);
Edit10.Text :=formatfloat('0.00',Fields[10].asfloat);
Edit11.Text :=formatfloat('0.00',Fields[11].AsFloat);
Edit12.Text :=formatfloat('0.00',fields[12].AsFloat);
Edit13.Text :=formatfloat('0.00',fields[13].AsFloat);
Edit14.Text :=formatfloat('0.00',Fields[14].AsFloat);
Edit15.Text :=formatfloat('0.00',Fields[15].AsFloat);
Edit16.Text :=formatfloat('0.00',Fields[16].AsFloat);
Edit17.Text :=formatfloat('0.00',Fields[17].AsFloat);
Edit18.Text :=formatfloat('0.00',Fields[18].AsFloat);
Edit19.Text :=formatfloat('0.00',Fields[19].AsFloat);
Edit20.Text :=formatfloat('0.00',Fields[20].AsFloat);
Edit21.Text :=formatfloat('0.00',Fields[21].AsFloat);
Edit22.Text :=formatfloat('0.00',Fields[22].AsFloat);
Edit23.Text :=formatfloat('0.00',Fields[23].AsFloat);
Memo1.Lines.Add(trim(Fields[24].asstring));
//end;
end;
end;
procedure TChectCount_frm.FormShow(Sender: TObject);
var
i:integer;
begin
inherited;
{i:=FlatComboBox1.ItemIndex;
showmessage(inttostr(i));
i:=0;
while (i<FlatComboBox1.ItemIndex) do
begin
FlatComboBox1.Itemindex:=i;
FlatComboBox1.Update;
FlatComboBox1Change(nil);
if (DataShare_frm.Query1.Fields[18].AsFloat>0) or (DataShare_frm.Query1.Fields[19].AsFloat>0 ) then exit;
i:=i+1;
end;
}
end;
procedure TChectCount_frm.FormActivate(Sender: TObject);
var
i:integer;
begin
inherited;
{i:=FlatComboBox1.ItemIndex;
showmessage(inttostr(i));
i:=0;
while (i<FlatComboBox1.ItemIndex) do
begin
FlatComboBox1.Itemindex:=i;
FlatComboBox1.Update;
FlatComboBox1Change(nil);
if (DataShare_frm.Query1.Fields[18].AsFloat>0) or (DataShare_frm.Query1.Fields[19].AsFloat>0 ) then exit;
i:=i+1;
end; }
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -