?? frmpoppop.pas
字號:
unit FrmPoPPoP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FrmRootAddP, StdCtrls, Buttons, ExtCtrls, dxExEdtr, dxCntner,
dxTL, dxDBCtrl, dxDBGrid, DB;
type
TFrmPoPPo = class(TFrmRootAdd)
dxDBGrid1: TdxDBGrid;
DataSource1: TDataSource;
dxDBGrid1cOrderCode: TdxDBGridColumn;
Label1: TLabel;
sbOut: TSpeedButton;
procedure BtnSaveClick(Sender: TObject);
procedure sbOutClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmPoPPo: TFrmPoPPo;
implementation
uses FrmINp, SUFunctionP, FrmOutP;
{$R *.dfm}
procedure TFrmPoPPo.BtnSaveClick(Sender: TObject);
begin
// inherited;
if (DataSource1.DataSet.State = dsEdit) or (DataSource1.DataSet.State = dsInsert) then
DataSource1.DataSet.Post;
Close;
end;
procedure TFrmPoPPo.sbOutClick(Sender: TObject);
begin
inherited;
SUFunction.DBGridSaveToFile(dxDBGrid1,'采購訂單對應(yīng).xls');
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -