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.
|
|||
|
|