【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-Fybfy.pas,希望本篇文章对您学习有所帮助。
unit Fybfy;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Fbase, StdCtrls, Buttons, ComCtrls, DB, ADODB, ExtCtrls, Grids;
type
TF_ybfy = class(TF_base)
Label1: TLabel;
DateTimePicker1: TDateTimePicker;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
SpeedButton1: TSpeedButton;
Label4: TLabel;
Edit4: TEdit;
SpeedButton2: TSpeedButton;
Label5: TLabel;
Edit5: TEdit;
Label7: TLabel;
Edit6: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
SpeedButton3: TSpeedButton;
StringGrid1: TStringGrid;
Label6: TLabel;
Panel1: TPanel;
ADOQuery1: TADOQuery;
procedure FormShow(Sender: TObject);
procedure getspbh(sender:Tobject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure StringGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure SpeedButton3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_ybfy: TF_ybfy;
spbh:string;
strdbrows:integer;
implementation
uses Fdm,fzct,Fghdw,Fjsr,Ffyxz;
{$R *.dfm}
procedure TF_ybfy.getspbh(sender:Tobject); //得到一般费用单编号
begin
adoquery1.Last;
if adoquery1.RecordCount=0 then
spbh:=formatdatetime('yyyymmdd',datetimepicker1.Date)+'FY'+formatfloat('0000000',1)
else
spbh:=formatdatetime('yyyymmdd',datetimepicker1.Date)+'FY'+formatfloat('0000000',strtoint(copy(adoquery1.Fields[1].asstring,11,7))+1);
end;
procedure TF_ybfy.FormShow(Sender: TObject);
begin
inherited;
F_zct.wf:=9;
DateTimePicker1.Date:=now();
with stringgrid1 do
begin
Cells[1,0]:='科目编号';
Cells[2,0]:='科目全称';
Cells[3,0]:='金额'
end;
with adoquery1 do
begin
close;
SQl.Clear;
SQl.Add('select * from tb_cf where billcode like ''%fy%'' order by billdate');
Open;
end;
getspbh(sender);
Edit2.Text:=spbh;
end;
procedure TF_ybfy.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
inherited;
F_zct.wf:=0;
end;
procedure TF_ybfy.SpeedButton1Click(Sender: TObject);
begin
inherited;
Application.CreateForm(TF_ghdw, F_ghdw);
F_ghdw.ShowModal;
F_ghdw.Free;
end;
procedure TF_ybfy.SpeedButton2Click(Sender: TObject);
begin
inherited;
Application.CreateForm(TF_jsr, F_jsr);
F_jsr.ShowModal;
F_jsr.Free;
end;
procedure TF_ybfy.BitBtn2Click(Sender: TObject);
var
grow,gcol:integer;
begin
inherited;
Edit3.Clear;
Edit4.Clear;
Edit6.Text:='0';
Panel1.Caption:='';
for grow:=1 to stringgrid1.RowCount do
begin
for gcol:=1 to stringgrid1.ColCount do
begin
stringgrid1.Cells[gcol,grow]:='';
end;
end;
end;
procedure TF_ybfy.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if not (key in ['0'..'9','.',#8]) then key:=#0;
end;
procedure TF_ybfy.StringGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
xh:integer;
ss:real;
begin
inherited;
ss:=0;
for xh:=1 to StringGrid1.RowCount do
begin
if (Trim(StringGrid1.Cells[1,xh])<>'') and (Trim(StringGrid1.Cells[3,xh])<>'') then
begin
ss:=ss+ strtofloat(StringGrid1.Cells[3,xh]);
strdbrows:=xh;
end;
end;
panel1.Caption:=format('%10.4f',[ss]);
end;
procedure TF_ybfy.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
inherited;
if (Acol=3) then
stringgrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goEditing]
else
stringgrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect];
end;
procedure TF_ybfy.SpeedButton3Click(Sender: TObject);
begin
inherited;
Application.CreateForm(TF_fyxz, F_fyxz);
F_fyxz.ShowModal;
F_fyxz.Free;
end;
procedure TF_ybfy.BitBtn1Click(Sender: TObject);
var
grow,xhjc:integer;
begin
inherited;
if (Tr