92 lines
2.7 KiB
ObjectPascal
92 lines
2.7 KiB
ObjectPascal
unit U_InputBoxCostPrice;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, StdCtrls, ExtCtrls, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels,
|
||
cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinBasic,
|
||
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
|
||
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
||
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
|
||
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
|
||
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
|
||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||
dxSkinTheBezier, dxSkinsDefaultPainters, dxSkinValentine,
|
||
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
||
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
||
dxSkinXmas2008Blue, cxTextEdit, Vcl.Menus, cxButtons;
|
||
|
||
type
|
||
TfrmInputBoxCostPrice = class(TForm)
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
CostPriceEquation: TcxTextEdit;
|
||
cxButton1: TcxButton;
|
||
ADO_GS: TADOQuery;
|
||
Label3: TLabel;
|
||
CostPrice: TcxTextEdit;
|
||
procedure cxButton1Click(Sender: TObject);
|
||
procedure CostPriceEquationExit(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
procedure JSCBJ();
|
||
public
|
||
FFFIDS: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmInputBoxCostPrice: TfrmInputBoxCostPrice;
|
||
|
||
implementation
|
||
|
||
{$R *.dfm}
|
||
procedure TfrmInputBoxCostPrice.JSCBJ();
|
||
begin
|
||
if CostPriceEquation.Text <> '' then
|
||
begin
|
||
try
|
||
with ADO_GS do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
Filtered := false;
|
||
sql.Add('select JG=round((0.001-0.001+(' + CostPriceEquation.Text + ')),2) ');
|
||
Open;
|
||
end;
|
||
CostPrice.Text := ADO_GS.FieldByName('JG').AsString;
|
||
except
|
||
CostPriceEquation.SetFocus;
|
||
application.MessageBox(PChar('<27><><EFBFBD>㹫ʽ<E3B9AB>쳣<EFBFBD><ECB3A3>' + Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
CostPrice.Text := '0';
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmInputBoxCostPrice.CostPriceEquationExit(Sender: TObject);
|
||
begin
|
||
JSCBJ();
|
||
end;
|
||
|
||
procedure TfrmInputBoxCostPrice.cxButton1Click(Sender: TObject);
|
||
begin
|
||
|
||
ModalResult := 1;
|
||
end;
|
||
|
||
end.
|
||
|