?? sy_kc.pas
字號(hào):
{*******************************************************}
{ }
{ 庫(kù)存情況查詢(xún) }
{ }
{ 中軟金馬公司版權(quán)所有。2002.12前 }
{ }
{ 編制:中軟金馬項(xiàng)目開(kāi)發(fā)組 }
{ }
{ }
{*******************************************************}
(*
本模塊在省級(jí)集郵票管理、省級(jí)市場(chǎng)購(gòu)入票管理、省級(jí)集郵品管理、省級(jí)零枚票管理、
地市集郵票管理、地市集郵品管理、地市市場(chǎng)購(gòu)入票管理 七個(gè)模塊調(diào)用
*)
unit SY_KC;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, CheckLst, Spin, Buttons, Db, DBTables, Grids, DBGrids, Mask,
ToolEdit, CurrEdit,SQLStrings;
type
TFrmY_KC = class(TForm)
BBt_Quit: TBitBtn;
Label4: TLabel;
E_PPMC: TEdit;
L_JJMZ: TLabel;
E_JJ: TEdit;
Label3: TLabel;
Label5: TLabel;
Qry_Static: TQuery;
Label6: TLabel;
E_KCTS: TCurrencyEdit;
E_FPTS: TCurrencyEdit;
E_SYTS: TCurrencyEdit;
L_WM1: TLabel;
L_WM2: TLabel;
L_WM3: TLabel;
procedure FormCreate(Sender: TObject);
procedure E_SYTSEnter(Sender: TObject);
private
{ Private declarations }
public
V_JJ: Double;
V_PPDM, V_CKJHDH: string;
{ Public declarations }
end;
var
FrmY_KC: TFrmY_KC;
implementation
uses
pub;
{$R *.DFM}
procedure TFrmY_KC.FormCreate(Sender: TObject);
begin
case VG_IO_TYPE of
io_jyp, io_grp, io_yp:
begin
L_JJMZ.Caption := '進(jìn)價(jià)(分):';
E_KCTS.DisplayFormat:='#,##0';
E_FPTS.DisplayFormat:='#,##0';
E_SYTS.DisplayFormat:='#,##0';
L_WM1.Visible := False;
L_WM2.Visible := False;
L_WM3.Visible := False;
end;
io_txp:
begin
L_JJMZ.Caption := '面值(分):';
// E_KCTS.DisplayFormat:='#,##0.####';
// E_FPTS.DisplayFormat:='#,##0.####';
// E_SYTS.DisplayFormat:='#,##0.####';
E_KCTS.DisplayFormat:='#,##0';
E_FPTS.DisplayFormat:='#,##0';
E_SYTS.DisplayFormat:='#,##0';
L_WM1.Visible := True;
L_WM2.Visible := True;
L_WM3.Visible := True;
end;
end;
end;
procedure TFrmY_KC.E_SYTSEnter(Sender: TObject);
begin
E_PPMC.SetFocus ;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -