You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
84 lines
2.1 KiB
Plaintext
84 lines
2.1 KiB
Plaintext
unit u_info_price_ship;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, bsSkinCtrls, bsdbctrls, Grids, Wwdbigrd, Wwdbgrid,
|
|
BusinessSkinForm, DB, ADODB, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
|
|
wwdblook;
|
|
|
|
type
|
|
Tfrm_info_price_ship = class(TForm)
|
|
wwDBGrid1: TwwDBGrid;
|
|
bsSkinDBNavigator1: TbsSkinDBNavigator;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
wwDBLookupComboship: TwwDBLookupCombo;
|
|
wwDBComboBoxprice: TwwDBComboBox;
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
Label1: TLabel;
|
|
bsSkinColorDialog1: TColorDialog;
|
|
Edit1: TEdit;
|
|
t_sys_parameters_value: TADOQuery;
|
|
procedure Edit1Click(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
procedure Load_text(i:integer;Ed:TEdit);
|
|
procedure save_text(i:integer;str:string);
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_info_price_ship: Tfrm_info_price_ship;
|
|
|
|
implementation
|
|
|
|
uses u_main, u_data_share, u_info_price_managelist;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_info_price_ship.load_text(i:integer;Ed:TEdit);
|
|
begin
|
|
t_sys_parameters_value.Open;
|
|
t_sys_parameters_value.Locate('VL_ID',i,[]);
|
|
Ed.text:=t_sys_parameters_value.FieldByName('²ÎÊýÖµ').asstring;
|
|
t_sys_parameters_value.Close;
|
|
end;
|
|
|
|
procedure Tfrm_info_price_ship.save_text(i:integer;str:string);
|
|
begin
|
|
t_sys_parameters_value.Open;
|
|
t_sys_parameters_value.Locate('VL_ID',i,[]);
|
|
t_sys_parameters_value.Edit;
|
|
t_sys_parameters_value['²ÎÊýÖµ']:=str;
|
|
t_sys_parameters_value.post;
|
|
t_sys_parameters_value.Close;
|
|
end;
|
|
|
|
procedure Tfrm_info_price_ship.Edit1Click(Sender: TObject);
|
|
begin
|
|
if bsSkinColorDialog1.Execute then
|
|
begin
|
|
Edit1.Text:=ColorToString(bsSkinColorDialog1.Color);
|
|
Edit1.Color:=bsSkinColorDialog1.Color;
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_info_price_ship.FormShow(Sender: TObject);
|
|
begin
|
|
Load_text(82,Edit1);
|
|
if Edit1.Text<>'' then
|
|
Edit1.Color:=StringToColor(Trim(Edit1.Text))
|
|
end;
|
|
|
|
procedure Tfrm_info_price_ship.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
save_text(82,Edit1.Text);
|
|
end;
|
|
|
|
end.
|