📄 unt_viewmoney.pas
字号:
unit unt_ViewMoney;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons;
type
TViewMoneyForm = class(TForm)
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ViewMoneyForm: TViewMoneyForm;
implementation
uses Main, unt_CheckUser, unt_ViewMoneyRep;
{$R *.dfm}
procedure TViewMoneyForm.BitBtn2Click(Sender: TObject);
begin
ViewMoneyForm.Close;
end;
procedure TViewMoneyForm.BitBtn1Click(Sender: TObject);
begin
ViewMoneyRep.QuickRep1.DataSet := ADOTable1;
ViewMoneyRep.QRDBText1.DataSet := ADOTable1;
ViewMoneyRep.QRDBText2.DataSet := ADOTable1;
ViewMoneyRep.QRDBText3.DataSet := ADOTable1;
ViewMoneyRep.QRDBText4.DataSet := ADOTable1;
ViewMoneyRep.QRDBText5.DataSet := ADOTable1;
ViewMoneyRep.QRDBText6.DataSet := ADOTable1;
ViewMoneyRep.QRDBText7.DataSet := ADOTable1;
ViewMoneyRep.QRDBText1.DataField := 'bookno';
ViewMoneyRep.QRDBText1.DataField := 'roomno';
ViewMoneyRep.QRDBText1.DataField := 'name';
ViewMoneyRep.QRDBText1.DataField := 'factfee';
ViewMoneyRep.QRDBText1.DataField := 'note1';
ViewMoneyRep.QRDBText1.DataField := 'operator';
ViewMoneyRep.QRDBText1.DataField := 'oper_date';
ViewMoneyRep.QuickRep1.Preview;
end;
procedure TViewMoneyForm.FormShow(Sender: TObject);
begin
ADOTable1.Active := True;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -