【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-Ffyzc.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit Ffyzc;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Fbase, DB, ADODB, Grids, DBGrids, Buttons, ComCtrls, ToolWin,
StdCtrls, ExtCtrls, RpCon, RpConDS, RpDefine, RpRave;
type
TF_fyzc = class(TF_base)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
SpeedButton1: TSpeedButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton2: TToolButton;
ToolButton7: TToolButton;
SpeedButton2: TSpeedButton;
ToolButton8: TToolButton;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Panel1: TPanel;
GroupBox1: TGroupBox;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
RvProject1: TRvProject;
RvDataSetConnection1: TRvDataSetConnection;
SpeedButton3: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_fyzc: TF_fyzc;
implementation
uses Fdm,Fysyf;
{$R *.dfm}
procedure TF_fyzc.FormShow(Sender: TObject);
begin
inherited;
datetimepicker1.Date:=now();
datetimepicker2.Date:=now();
with Adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('select number,name,sum(payment) tt from tb_cf group by number,name');
Open;
end;
end;
procedure TF_fyzc.SpeedButton2Click(Sender: TObject);
begin
inherited;
Close;
end;
procedure TF_fyzc.SpeedButton1Click(Sender: TObject);
begin
inherited;
Panel1.Visible:=not(Panel1.Visible);
if Panel1.Visible=True then Exit;
Application.CreateForm(TF_ysyf, F_ysyf);
F_ysyf.ShowModal;
F_ysyf.Free;
end;
procedure TF_fyzc.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
inherited;
if Application.MessageBox('是否退出?','提示',mb_yesno)=Id_no then
Canclose:=False;
end;
procedure TF_fyzc.SpeedButton3Click(Sender: TObject);
begin
inherited;
Rvproject1.ProjectFile:=ExtractFilePath(Application.ExeName)+'money.rav';
RvProject1.Execute;
end;
end.
上一篇:
Ex15_1View.cpp
下一篇:
浮生若萍