|
|
unit u_info_price_manage;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, ExtCtrls, bsSkinCtrls, DB, ADODB, Grids, Wwdbigrd, Wwdbgrid,
|
|
|
StdCtrls, wwdblook, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
|
|
|
dxDBTLCl, dxGrClms, Mask, DBCtrls, RxLookup, wwdbdatetimepicker, Wwkeycb,
|
|
|
ComCtrls, bsSkinTabs;
|
|
|
|
|
|
type
|
|
|
Tfrm_info_price_manage = class(TForm)
|
|
|
Panel1: TPanel;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
t_price_ship: TADOQuery;
|
|
|
t_price_ship1: TDataSource;
|
|
|
Notebook1: TNotebook;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
t_price_agreement: TADOQuery;
|
|
|
t_price_agreement1: TDataSource;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
Label1: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label5: TLabel;
|
|
|
DBText1: TDBText;
|
|
|
DBText2: TDBText;
|
|
|
DBText3: TDBText;
|
|
|
DBText6: TDBText;
|
|
|
DBText5: TDBText;
|
|
|
DBText4: TDBText;
|
|
|
DBText7: TDBText;
|
|
|
DBText8: TDBText;
|
|
|
Label14: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label18: TLabel;
|
|
|
Label19: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label25: TLabel;
|
|
|
Label20: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label6: TLabel;
|
|
|
Label13: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBEdit7: TDBEdit;
|
|
|
DBEdit13: TDBEdit;
|
|
|
DBEdit19: TDBEdit;
|
|
|
DBEdit25: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit20: TDBEdit;
|
|
|
DBEdit26: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit9: TDBEdit;
|
|
|
DBEdit15: TDBEdit;
|
|
|
DBEdit21: TDBEdit;
|
|
|
DBEdit27: TDBEdit;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBEdit16: TDBEdit;
|
|
|
DBEdit22: TDBEdit;
|
|
|
DBEdit28: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
DBEdit17: TDBEdit;
|
|
|
DBEdit23: TDBEdit;
|
|
|
DBEdit29: TDBEdit;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBEdit12: TDBEdit;
|
|
|
DBEdit18: TDBEdit;
|
|
|
DBEdit24: TDBEdit;
|
|
|
DBEdit30: TDBEdit;
|
|
|
DBEdit36: TDBEdit;
|
|
|
DBEdit37: TDBEdit;
|
|
|
DBEdit42: TDBEdit;
|
|
|
DBEdit44: TDBEdit;
|
|
|
DBEdit46: TDBEdit;
|
|
|
DBEdit41: TDBEdit;
|
|
|
DBEdit40: TDBEdit;
|
|
|
DBEdit43: TDBEdit;
|
|
|
DBEdit45: TDBEdit;
|
|
|
DBEdit47: TDBEdit;
|
|
|
DBEdit31: TDBEdit;
|
|
|
DBEdit32: TDBEdit;
|
|
|
DBEdit33: TDBEdit;
|
|
|
DBEdit34: TDBEdit;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
DBEdit38: TDBEdit;
|
|
|
DBEdit39: TDBEdit;
|
|
|
DBMemo1: TDBMemo;
|
|
|
wwDBLookupCombo3: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
RxDBLookupCombo20: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo1: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
Label7: TLabel;
|
|
|
wwDBLookupCombo2: TwwDBLookupCombo;
|
|
|
Label8: TLabel;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
Label124: TLabel;
|
|
|
Label10: TLabel;
|
|
|
wwDBLookupCombo4: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column55: TdxDBGridColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid120GP: TdxDBGridMaskColumn;
|
|
|
dxDBGrid140GP: TdxDBGridMaskColumn;
|
|
|
dxDBGrid140HQ: TdxDBGridMaskColumn;
|
|
|
dxDBGrid140RF: TdxDBGridMaskColumn;
|
|
|
dxDBGrid140RH: TdxDBGridMaskColumn;
|
|
|
dxDBGrid145HQ: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column22: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column23: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column27: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column28: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column29: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column30: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column31: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column32: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column33: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column34: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column35: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column36: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column37: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column38: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column39: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column40: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column41: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column42: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column43: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column44: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column45: TdxDBGridColumn;
|
|
|
dxDBGrid1Column46: TdxDBGridColumn;
|
|
|
dxDBGrid1Column47: TdxDBGridColumn;
|
|
|
dxDBGrid1Column48: TdxDBGridColumn;
|
|
|
dxDBGrid1Column49: TdxDBGridColumn;
|
|
|
dxDBGrid1Column50: TdxDBGridColumn;
|
|
|
dxDBGrid1Column51: TdxDBGridColumn;
|
|
|
dxDBGrid1Column52: TdxDBGridColumn;
|
|
|
dxDBGrid1Column53: TdxDBGridColumn;
|
|
|
dxDBGrid1Column54: TdxDBGridColumn;
|
|
|
Edit1: TEdit;
|
|
|
Label11: TLabel;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
Label26: TLabel;
|
|
|
Label125: TLabel;
|
|
|
wwDBLookupCombo49: TwwDBLookupCombo;
|
|
|
Label126: TLabel;
|
|
|
DBEdit63: TDBEdit;
|
|
|
dxDBGrid1Column56: TdxDBGridColumn;
|
|
|
dxDBGrid1Column57: TdxDBGridColumn;
|
|
|
dxDBGrid1Column58: TdxDBGridColumn;
|
|
|
Label12: TLabel;
|
|
|
wwDBLookupCombo5: TwwDBLookupCombo;
|
|
|
Label30: TLabel;
|
|
|
Edit7: TEdit;
|
|
|
Label27: TLabel;
|
|
|
RxDBLookupCombo8: TRxDBLookupCombo;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure t_price_shipAfterInsert(DataSet: TDataSet);
|
|
|
procedure t_price_shipBeforePost(DataSet: TDataSet);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure Panel1Resize(Sender: TObject);
|
|
|
procedure dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
|
|
|
ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
|
|
|
var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
|
|
|
var ADone: Boolean);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure t_price_shipBeforeEdit(DataSet: TDataSet);
|
|
|
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
|
procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit19KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit25KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit20KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit26KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit21KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit28KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit23KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit29KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit18KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit24KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit30KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit36KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit37KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit42KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit44KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit46KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit41KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit40KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit43KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit45KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit47KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit31KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit32KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit33KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit34KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBDateTimePicker2KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit38KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure DBEdit39KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
procedure wwDBLookupCombo52KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure bsSkinPanel3Resize(Sender: TObject);
|
|
|
procedure bsSkinButton13Click(Sender: TObject);
|
|
|
procedure bsSkinButton14Click(Sender: TObject);
|
|
|
procedure dxDBGrid2DblClick(Sender: TObject);
|
|
|
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
|
|
|
procedure wwDBLookupCombo52Exit(Sender: TObject);
|
|
|
procedure dxDBGrid1DblClick(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_info_price_manage: Tfrm_info_price_manage;
|
|
|
info_price_manage_do1,info_price_manage_do2:boolean;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_data_share, my_sys_function, u_info_price_query,
|
|
|
u_info_price_agreeview;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_info_price_manage.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
frm_info_price_manage.Hide;
|
|
|
frm_info_price_manage.ManualFloat(frm_info_price_manage.BoundsRect );
|
|
|
frm_main.freeTabs('frm_info_price_manage');
|
|
|
action:=cafree;
|
|
|
frm_info_price_manage:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_price_ship);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
table_next(t_price_ship);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton11Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_price_ship);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton8Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_price_ship);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton4Click(Sender: TObject);
|
|
|
begin
|
|
|
table_delete(t_price_ship);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton10Click(Sender: TObject);
|
|
|
var
|
|
|
str,str_tiaojian:String;
|
|
|
begin
|
|
|
|
|
|
IF TRIM(Edit1.TEXT)=''THEN
|
|
|
EXIT;
|
|
|
str_tiaojian:=' like '+''''+'%'+TRIM(Edit1.TEXT)+'%'+'''';
|
|
|
str:='where Ŀ<>ĸ<EFBFBD>'+str_tiaojian;
|
|
|
str:=str+' or Ŀ<>ĸ<EFBFBD><C4B8><EFBFBD><EFBFBD><EFBFBD>'+str_tiaojian;
|
|
|
str:=str+' or <20><><EFBFBD>˸<EFBFBD>'+str_tiaojian;
|
|
|
str:=str+' or <20><><EFBFBD><EFBFBD>'+str_tiaojian;
|
|
|
str:=str+' or <20><><EFBFBD><EFBFBD>˾'+str_tiaojian;
|
|
|
str:=str+' or <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾'+str_tiaojian;
|
|
|
str:=str+' or <20><><EFBFBD><EFBFBD>'+str_tiaojian;
|
|
|
str:=str+' or <20><><EFBFBD><EFBFBD>'+str_tiaojian;
|
|
|
str:=str+' or <20><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5>'+str_tiaojian;
|
|
|
str:=str+' or <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>'+str_tiaojian;
|
|
|
str:=str+' or <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>'+str_tiaojian;
|
|
|
str:=Str+' and '+open_data('3001','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no');
|
|
|
|
|
|
// str:=str+' or ʡ<><CAA1>'+str_tiaojian;
|
|
|
t_price_ship.close;
|
|
|
t_price_ship.sql.Clear;
|
|
|
t_price_ship.sql.add('select * from t_price_ship ');
|
|
|
t_price_ship.sql.add(str);
|
|
|
t_price_ship.sql.add(' order by <20>˼۱<CBBC><DBB1><EFBFBD>');
|
|
|
t_price_ship.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
t_price_ship.insert;
|
|
|
bsSkinPageControl1.activePageIndex:=1;
|
|
|
// bsSkinButton10.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton3Click(Sender: TObject);
|
|
|
var
|
|
|
afield : variant;
|
|
|
i: Integer;
|
|
|
begin
|
|
|
if t_price_ship.IsEmpty then
|
|
|
exit;
|
|
|
afield := vararraycreate([0,t_price_ship.fieldcount-1],varvariant);
|
|
|
for i := 0 to (t_price_ship.fieldcount-1) do
|
|
|
begin
|
|
|
afield[i] :=t_price_ship.fields[i].value ;
|
|
|
end;
|
|
|
t_price_ship.append;
|
|
|
for i := 1 to (t_price_ship.fieldcount-1) do
|
|
|
begin
|
|
|
if t_price_ship.fields[i].FieldName<>'<27>˼۱<CBBC><DBB1><EFBFBD>' then
|
|
|
t_price_ship.fields[i].value := afield[i] ;
|
|
|
end;
|
|
|
t_price_ship['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_price_ship['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
bsSkinPageControl1.activePageIndex:=1;
|
|
|
// bsSkinButton10.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӳɹ<D3B3><C9B9><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
sys_print('<27><>Լ<EFBFBD>˼۴<CBBC>ӡ',2,t_price_ship1,frm_data_share.t_code_price_ctn1,nil,nil,t_price_ship1,nil,nil,nil,nil,nil,nil);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.t_price_shipAfterInsert(
|
|
|
DataSet: TDataSet);
|
|
|
begin
|
|
|
t_price_ship['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_price_ship['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_price_ship['<27><>Ч<EFBFBD><D0A7><EFBFBD><EFBFBD>']:=date;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.t_price_shipBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
table_before_post(t_price_ship,'<27><><EFBFBD><EFBFBD>˾');
|
|
|
table_before_post(t_price_ship,'<27><><EFBFBD>˸<EFBFBD>');
|
|
|
table_before_post(t_price_ship,'Ŀ<>ĸ<EFBFBD>');
|
|
|
table_before_post(t_price_ship,'<27><>Ч<EFBFBD><D0A7><EFBFBD><EFBFBD>');
|
|
|
table_before_post(t_price_ship,'<27><>Ч<EFBFBD><D0A7><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
t_price_ship.sql.Clear;
|
|
|
t_price_ship.sql.add('SELECT * FROM t_price_ship where 1=1 ');
|
|
|
t_price_ship.sql.add(' and '+open_data('3001','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no'));
|
|
|
t_price_ship.sql.add(' order by <20>˼۱<CBBC><DBB1><EFBFBD>');
|
|
|
t_price_ship.open;
|
|
|
t_price_agreement.open;
|
|
|
|
|
|
frm_data_share.t_code_price_ctn.requery;
|
|
|
|
|
|
if frm_data_share.t_code_price_ctn.IsEmpty then
|
|
|
exit;
|
|
|
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
|
|
|
begin
|
|
|
dxDBGrid1.Bands[1].Visible:=true;
|
|
|
dxDBGrid1.Bands[1].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring);
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
|
|
|
begin
|
|
|
dxDBGrid1.Bands[2].Visible:=true;
|
|
|
dxDBGrid1.Bands[2].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring);
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
|
|
|
begin
|
|
|
dxDBGrid1.Bands[3].Visible:=true;
|
|
|
dxDBGrid1.Bands[3].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring);
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
|
|
|
begin
|
|
|
dxDBGrid1.Bands[4].Visible:=true;
|
|
|
dxDBGrid1.Bands[4].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring);
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
|
|
|
begin
|
|
|
dxDBGrid1.Bands[5].Visible:=true;
|
|
|
dxDBGrid1.Bands[5].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring);
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
|
|
|
begin
|
|
|
dxDBGrid1.Bands[6].Visible:=true;
|
|
|
dxDBGrid1.Bands[6].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring);
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring)<>'' then
|
|
|
begin
|
|
|
dxDBGrid1.Bands[7].Visible:=true;
|
|
|
dxDBGrid1.Bands[7].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring);
|
|
|
end;
|
|
|
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring)<>'' then
|
|
|
begin
|
|
|
dxDBGrid1.Bands[8].Visible:=true;
|
|
|
dxDBGrid1.Bands[8].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.Panel1Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
// i:=round(Panel1.Width/11);
|
|
|
{
|
|
|
bsSkinButton5.Width:=i;
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton3.Width:=i;
|
|
|
// bsSkinButton10.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton4.Width:=i;
|
|
|
bsSkinButton8.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
}
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.dxDBGrid1CustomDrawCell(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
|
|
|
var AText: String; var AColor: TColor; AFont: TFont;
|
|
|
var AAlignment: TAlignment; var ADone: Boolean);
|
|
|
begin
|
|
|
if strtodatetime(ANode.Strings[dxDBGrid1Column42.Index])<date then
|
|
|
AColor:=clBtnFace;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
|
|
|
if RxDBLookupCombo1.DisplayValue='' then
|
|
|
exit;
|
|
|
if t_price_agreement.Locate('<27><>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>',RxDBLookupCombo1.DisplayValue,[])then
|
|
|
begin
|
|
|
try
|
|
|
frm_info_price_agreeview:=tfrm_info_price_agreeview.Create (self);
|
|
|
frm_info_price_agreeview.ShowModal;
|
|
|
finally
|
|
|
frm_info_price_agreeview.Free;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton1Click(Sender: TObject);
|
|
|
var
|
|
|
str:widestring;
|
|
|
begin
|
|
|
|
|
|
str:='SELECT * FROM t_price_ship where 1=1 ';
|
|
|
str:=Str+' and '+open_data('3001','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no');
|
|
|
if wwDBLookupCombo3.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD>˸<EFBFBD> like '+''''+'%'+wwDBLookupCombo3.text+'%'+'''';
|
|
|
if wwDBLookupCombo52.text<>''then
|
|
|
str:=str+' and Ŀ<>ĸ<EFBFBD> like '+''''+'%'+wwDBLookupCombo52.text+'%'+'''';
|
|
|
if RxDBLookupCombo2.DisplayValue<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo2.DisplayValue+'''';
|
|
|
if RxDBLookupCombo20.DisplayValue<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo20.DisplayValue+'''';
|
|
|
if RxDBLookupCombo2.DisplayValue<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo2.DisplayValue+'''';
|
|
|
if RxDBLookupCombo8.DisplayValue<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo8.DisplayValue+'''';
|
|
|
if RxDBLookupCombo5.DisplayValue<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo5.DisplayValue+'''';
|
|
|
if Edit7.Text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD> like '+'''%'+Edit7.Text+'%''';
|
|
|
t_price_ship.close;
|
|
|
t_price_ship.sql.Clear;
|
|
|
t_price_ship.sql.add(str);
|
|
|
t_price_ship.sql.add(' order by <20>˼۱<CBBC><DBB1><EFBFBD>');
|
|
|
t_price_ship.open;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.t_price_shipBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
if do_data('3001',t_price_ship.fieldbyname('¼<><C2BC><EFBFBD><EFBFBD>').asstring,'','','','','')=false then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD>Ĵ<DEB8><C4B4><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.FormCloseQuery(Sender: TObject;
|
|
|
var CanClose: Boolean);
|
|
|
begin
|
|
|
CanClose:=frm_close_query(t_price_ship);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.RxDBLookupCombo20KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.RxDBLookupCombo2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit33);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.wwDBLookupCombo3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo52);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit7);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit7KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit13);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit13KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit19);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit19KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit25);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit25KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit2KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit8);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit8KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit14);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit14KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit20);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit20KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit26);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit26KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit3);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit3KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit9);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit9KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit15);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit15KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit21);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit21KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit27);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit27KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit4);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit4KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit10);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit10KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit16);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit16KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit22);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit22KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit28);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit28KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit5);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit5KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit11);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit11KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit17);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit17KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit23);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit23KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit29);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit29KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit6);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit6KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit12);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit12KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit18);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit18KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit24);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit24KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit30);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit30KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit36);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit36KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit37);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit37KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit42);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit42KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit44);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit44KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit46);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit46KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit41);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit41KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit40);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit40KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit43);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit43KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit45);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit45KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit47);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit47KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit31);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit31KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit32KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit33KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit34);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit34KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit32);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.RxDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.wwDBDateTimePicker1KeyPress(
|
|
|
Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_wwDBDateTimePicker(Key,wwDBDateTimePicker2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.wwDBDateTimePicker2KeyPress(
|
|
|
Sender: TObject; var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit38);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit38KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBEdit(Key,DBEdit39);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.DBEdit39KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_DBMemo(Key,DBMemo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.dxDBGrid1ColumnSorting(Sender: TObject;
|
|
|
Column: TdxDBTreeListColumn; var Allow: Boolean);
|
|
|
begin
|
|
|
Column_sort(Column,t_price_ship,'<27><><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.wwDBLookupCombo52KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_wwDBLookupCombo(Key,wwDBLookupCombo1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinPanel3Resize(Sender: TObject);
|
|
|
begin
|
|
|
{
|
|
|
wwDBLookupCombo52.Width:=bsSkinPanel3.Width-bsSkinButton13.Width-10;
|
|
|
bsSkinButton13.left:=bsSkinPanel3.Width-bsSkinButton13.Width-2;
|
|
|
bsSkinButton14.left:=bsSkinPanel3.Width-bsSkinButton13.Width-2;
|
|
|
RxDBLookupCombo20.Width:=bsSkinPanel3.Width-RxDBLookupCombo20.left;
|
|
|
Label13.Left:=round((bsSkinPanel3.Width-Label13.Width)/2);
|
|
|
wwDBLookupCombo1.Width:=bsSkinPanel3.Width-bsSkinButton13.Width-10;
|
|
|
Label6.Left:=round((bsSkinPanel3.Width-Label13.Width)/2);
|
|
|
}
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton13Click(Sender: TObject);
|
|
|
begin
|
|
|
if wwDBLookupCombo52.text='' then
|
|
|
exit;
|
|
|
|
|
|
if (t_price_ship.state=dsinsert)or(t_price_ship.state=dsedit) then
|
|
|
begin
|
|
|
if info_price_manage_do1=false then
|
|
|
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[])then
|
|
|
begin
|
|
|
wwDBLookupCombo1.Text:=frm_data_share.t_code_disport.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
info_price_manage_do1:=true;
|
|
|
t_price_ship['Ŀ<>ĸ<EFBFBD><C4B8><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
|
|
|
info_price_manage_do1:=false;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.bsSkinButton14Click(Sender: TObject);
|
|
|
begin
|
|
|
if wwDBLookupCombo1.text='' then
|
|
|
exit;
|
|
|
|
|
|
if (t_price_ship.state=dsinsert)or(t_price_ship.state=dsedit) then
|
|
|
begin
|
|
|
if info_price_manage_do2=false then
|
|
|
if frm_data_share.t_code_disport.Locate('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBLookupCombo1.text,[])then
|
|
|
begin
|
|
|
wwDBLookupCombo52.Text:=frm_data_share.t_code_disport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
|
|
|
info_price_manage_do2:=true;
|
|
|
t_price_ship['Ŀ<>ĸ<EFBFBD>']:=frm_data_share.t_code_disport.fieldbyname('Ӣ<><D3A2><EFBFBD><EFBFBD>').asstring;
|
|
|
info_price_manage_do2:=false;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.dxDBGrid2DblClick(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinPageControl1.ActivePageIndex:=1;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.wwDBLookupCombo1KeyPress(Sender: TObject;
|
|
|
var Key: Char);
|
|
|
begin
|
|
|
key_RxDBLookupCombo(Key,RxDBLookupCombo20);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.wwDBLookupCombo52Exit(Sender: TObject);
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;sql.Clear;
|
|
|
sql.Add('select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD> from t_code_disport where Ӣ<><D3A2><EFBFBD><EFBFBD>='''+uppercase(wwDBLookupCombo52.Text)+'''');
|
|
|
Open;
|
|
|
if recordcount<>0 then begin
|
|
|
wwDBLookupCombo1.Text:=fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
|
|
|
if t_price_ship.State in [dsedit,dsinsert] then
|
|
|
t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString:=fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
end;
|
|
|
finally
|
|
|
freeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_price_manage.dxDBGrid1DblClick(Sender: TObject);
|
|
|
begin
|
|
|
bsSkinPageControl1.ActivePage:=bsSkinTabSheet2;
|
|
|
end;
|
|
|
|
|
|
end.
|