?? showmxb1.pas
字號(hào):
unit ShowMxb1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, Grids, DBGrids;
type
TFrm_ShowMxb1 = class(TForm)
DBGrid1: TDBGrid;
Btn_Cancel: TButton;
Btn_Prt: TButton;
DataSource1: TDataSource;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Btn_PrtClick(Sender: TObject);
procedure Btn_CancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_ShowMxb1: TFrm_ShowMxb1;
implementation
uses sys_dm, sys_global, Rpt4 ;
{$R *.dfm}
procedure TFrm_ShowMxb1.FormShow(Sender: TObject);
begin
if m_mode = 'b' then
with frm_sys_dm.Qr_tmp2 do
begin
close;
sql.clear;
sql.text := 'select Edate, ICno, ItemDesc, JF, DF, Operator, JBoptor, JBdate from Pbill p, ItemID I where P.flag=''0'' and P.itemName=I.itemName' ;
open;
end;
if m_mode = 'k' then
with frm_sys_dm.Qr_tmp2 do
begin
close;
sql.clear;
sql.text := 'select Edate, ICno, ItemDesc, JF, DF, Operator, JBoptor, JBdate from Pbill p, ItemID I where P.flag<>''2'' and P.itemName=I.itemName';
open;
end;
end;
procedure TFrm_ShowMxb1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_sys_dm.Qr_tmp2.close ;
end;
procedure TFrm_ShowMxb1.Btn_PrtClick(Sender: TObject);
begin
Frm_Rpt4 := TFrm_Rpt4.create(application);
Frm_Rpt4.QuickRep1.preview ;
Frm_Rpt4.free ;
end;
procedure TFrm_ShowMxb1.Btn_CancelClick(Sender: TObject);
begin
close ;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -