hanxuntao
/
D6HECHUAN
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '4e4df949a6'
${ noResults }
D6HECHUAN/信息资源/u_info_price_ask.pas

787 lines
26 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_info_price_ask;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, DB, ADODB, wwdbdatetimepicker, StdCtrls, DBCtrls,
RxLookup, wwdblook, Mask, bsSkinCtrls, dxDBTLCl, dxGrClms, dxDBGrid,
dxTL, dxDBCtrl, dxCntner, ExtCtrls, wwdbedit, Wwdotdot, Wwdbcomb;
type
Tfrm_info_price_ask = class(TForm)
Panel1: TPanel;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
Notebook1: TNotebook;
dxDBGrid1: TdxDBGrid;
t_price_ask: TADOQuery;
t_price_ask1: TDataSource;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinGroupBox2: TbsSkinGroupBox;
bsSkinGroupBox3: TbsSkinGroupBox;
RxDBLookupCombo2: TRxDBLookupCombo;
Label9: TLabel;
Label1: TLabel;
wwDBComboBox1: TwwDBComboBox;
Label14: TLabel;
DBEdit31: TDBEdit;
Label2: TLabel;
wwDBComboBox2: TwwDBComboBox;
Label3: TLabel;
DBEdit1: TDBEdit;
Label4: TLabel;
DBEdit2: TDBEdit;
Label5: TLabel;
DBEdit3: TDBEdit;
Label6: TLabel;
RxDBLookupCombo1: TRxDBLookupCombo;
Label20: TLabel;
wwDBLookupCombo3: TwwDBLookupCombo;
DBText1: TDBText;
DBText5: TDBText;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBText2: TDBText;
DBText4: TDBText;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBText3: TDBText;
DBText7: TDBText;
DBEdit8: TDBEdit;
DBEdit36: TDBEdit;
DBText6: TDBText;
DBText8: TDBText;
DBEdit9: TDBEdit;
DBEdit41: TDBEdit;
Label17: TLabel;
DBEdit34: TDBEdit;
DBEdit33: TDBEdit;
Label16: TLabel;
DBEdit32: TDBEdit;
Label15: TLabel;
Label124: TLabel;
wwDBLookupCombo1: TwwDBLookupCombo;
Label21: TLabel;
RxDBLookupCombo20: TRxDBLookupCombo;
Label7: TLabel;
DBEdit10: TDBEdit;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column17: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridMaskColumn14: 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;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGrid1Column40: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGrid1Column45: TdxDBGridColumn;
dxDBGrid1Column46: TdxDBGridColumn;
dxDBGrid1Column47: TdxDBGridColumn;
dxDBGrid1Column48: TdxDBGridColumn;
dxDBGrid1Column49: TdxDBGridColumn;
dxDBGrid1Column50: TdxDBGridColumn;
dxDBGrid1Column51: TdxDBGridColumn;
dxDBGrid1Column52: TdxDBGridColumn;
dxDBGrid1Column53: TdxDBGridColumn;
dxDBGrid1Column54: TdxDBGridColumn;
t_price_ship: TADOQuery;
t_price_ship1: TDataSource;
bsSkinPanel1: TbsSkinPanel;
Label8: TLabel;
RxDBLookupCombo3: TRxDBLookupCombo;
Label10: TLabel;
wwDBLookupCombo2: TwwDBLookupCombo;
bsSkinButton12: TbsSkinButton;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
bsSkinButton13: TbsSkinButton;
wwDBComboBox3: TwwDBComboBox;
Label25: TLabel;
DBMemo1: TDBMemo;
dxDBGrid1Column1: TdxDBGridColumn;
dxDBGrid1Column4: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridColumn;
dxDBGrid1Column42: TdxDBGridColumn;
dxDBGrid1Column41: TdxDBGridColumn;
dxDBGrid1Column22: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column5: TdxDBGridColumn;
dxDBGrid120GP: TdxDBGridColumn;
dxDBGrid140GP: TdxDBGridColumn;
dxDBGrid140HQ: TdxDBGridColumn;
dxDBGrid140RF: TdxDBGridColumn;
dxDBGrid140RH: TdxDBGridColumn;
dxDBGrid145HQ: TdxDBGridColumn;
dxDBGrid1Column20: TdxDBGridColumn;
dxDBGrid1Column21: TdxDBGridColumn;
dxDBGrid1Column36: TdxDBGridColumn;
dxDBGrid1Column37: TdxDBGridColumn;
dxDBGrid1Column38: TdxDBGridColumn;
dxDBGrid1Column39: TdxDBGridColumn;
dxDBGrid1Column43: TdxDBGridColumn;
dxDBGrid1Column44: TdxDBGridColumn;
procedure bsSkinButton9Click(Sender: TObject);
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 bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure t_price_askAfterInsert(DataSet: TDataSet);
procedure t_price_askBeforePost(DataSet: TDataSet);
procedure FormShow(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure t_price_askBeforeEdit(DataSet: TDataSet);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure bsSkinButton1Click(Sender: TObject);
procedure wwDBComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure wwDBComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit31KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo3KeyPress(Sender: TObject; var Key: Char);
procedure wwDBLookupCombo1KeyPress(Sender: TObject; var Key: Char);
procedure RxDBLookupCombo20KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit36KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit41KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit33KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit34KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit32KeyPress(Sender: TObject; var Key: Char);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_info_price_ask: Tfrm_info_price_ask;
implementation
uses u_main, u_data_share, my_sys_function, u_info_price_ask_query;
{$R *.dfm}
procedure Tfrm_info_price_ask.bsSkinButton9Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_info_price_ask.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_info_price_ask.Hide;
frm_info_price_ask.ManualFloat(frm_info_price_ask.BoundsRect );
frm_main.freeTabs('frm_info_price_ask');
action:=cafree;
frm_info_price_ask:=nil;
end;
procedure Tfrm_info_price_ask.bsSkinButton7Click(Sender: TObject);
begin
table_Prior(t_price_ask);
end;
procedure Tfrm_info_price_ask.bsSkinButton6Click(Sender: TObject);
begin
table_next(t_price_ask);
end;
procedure Tfrm_info_price_ask.bsSkinButton11Click(Sender: TObject);
begin
table_post(t_price_ask);
end;
procedure Tfrm_info_price_ask.bsSkinButton8Click(Sender: TObject);
begin
table_cancel(t_price_ask);
end;
procedure Tfrm_info_price_ask.bsSkinButton4Click(Sender: TObject);
begin
table_delete(t_price_ask);
end;
procedure Tfrm_info_price_ask.bsSkinButton10Click(Sender: TObject);
var
answer:TModalResult;
begin
if bsSkinButton10.Caption='<27>༭<EFBFBD>޸<EFBFBD>' then
begin
Notebook1.PageIndex:=1;
bsSkinButton10.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end
else
begin
if (t_price_ask.State=dsinsert)or(t_price_ask.State=dsedit) then
BEGIN
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
if answer=mrYes then
begin
t_price_ask.post;
end;
if answer=mrNo then
begin
t_price_ask.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
Notebook1.PageIndex:=0;
bsSkinButton10.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
end;
end;
procedure Tfrm_info_price_ask.bsSkinButton2Click(Sender: TObject);
begin
t_price_ask.insert;
Notebook1.PageIndex:=1;
bsSkinButton10.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
procedure Tfrm_info_price_ask.bsSkinButton3Click(Sender: TObject);
var
afield : variant;
i: Integer;
begin
if t_price_ask.IsEmpty then
exit;
afield := vararraycreate([0,t_price_ask.fieldcount-1],varvariant);
for i := 0 to (t_price_ask.fieldcount-1) do
begin
afield[i] :=t_price_ask.fields[i].value ;
end;
t_price_ask.append;
for i := 1 to (t_price_ask.fieldcount-1) do
begin
if t_price_ask.fields[i].FieldName<>'ѯ<>۱<EFBFBD><DBB1><EFBFBD>' then
t_price_ask.fields[i].value := afield[i] ;
end;
t_price_ask['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_price_ask['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
Notebook1.PageIndex:=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_ask.bsSkinButton5Click(Sender: TObject);
begin
sys_print('<27>̻<EFBFBD><CCBB><EFBFBD><EFBFBD>۴<EFBFBD>ӡ',2,t_price_ask1,frm_data_share.t_code_price_ctn1,nil,nil,t_price_ask1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_info_price_ask.t_price_askAfterInsert(DataSet: TDataSet);
begin
t_price_ask['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_price_ask['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
end;
procedure Tfrm_info_price_ask.t_price_askBeforePost(DataSet: TDataSet);
begin
table_before_post(t_price_ask,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_price_ask,'ѯ<>ۿͻ<DBBF>');
table_before_post(t_price_ask,'<27><><EFBFBD>˸<EFBFBD>');
table_before_post(t_price_ask,'Ŀ<>ĸ<EFBFBD>');
table_before_post(t_price_ask,'ѯ<><D1AF><EFBFBD><EFBFBD>');
end;
procedure Tfrm_info_price_ask.FormShow(Sender: TObject);
begin
t_price_ask.sql.Clear;
t_price_ask.sql.add('SELECT top 100 * FROM t_price_ask ');
t_price_ask.sql.add('where '+open_data('3005','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no'));
t_price_ask.sql.add(' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
t_price_ask.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
dxDBGrid120GP.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring);
dxDBGrid120GP.Visible:=true;
end;
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring)<>'' then
begin
dxDBGrid140GP.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring);
dxDBGrid140GP.Visible:=true;
end;
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring)<>'' then
begin
dxDBGrid140HQ.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring);
dxDBGrid140HQ.Visible:=true;
end;
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring)<>'' then
begin
dxDBGrid140RF.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring);
dxDBGrid140RF.Visible:=true;
end;
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring)<>'' then
begin
dxDBGrid140RH.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring);
dxDBGrid140RH.Visible:=true;
end;
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring)<>'' then
begin
dxDBGrid145HQ.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring);
dxDBGrid145HQ.Visible:=true;
end;
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring)<>'' then
begin
dxDBGrid1Column20.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring);
dxDBGrid1Column20.Visible:=true;
end;
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring)<>'' then
begin
dxDBGrid1Column21.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring);
dxDBGrid1Column21.Visible:=true;
end;
bsSkinCheckRadioBox1.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring);
bsSkinCheckRadioBox2.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>2').asstring);
bsSkinCheckRadioBox3.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>3').asstring);
bsSkinCheckRadioBox4.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>4').asstring);
bsSkinCheckRadioBox5.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>5').asstring);
bsSkinCheckRadioBox6.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>6').asstring);
bsSkinCheckRadioBox7.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>7').asstring);
bsSkinCheckRadioBox8.Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring);
if trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>1').asstring)<>'' then
begin
dxDBGrid2.Bands[1].Visible:=true;
dxDBGrid2.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
dxDBGrid2.Bands[2].Visible:=true;
dxDBGrid2.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
dxDBGrid2.Bands[3].Visible:=true;
dxDBGrid2.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
dxDBGrid2.Bands[4].Visible:=true;
dxDBGrid2.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
dxDBGrid2.Bands[5].Visible:=true;
dxDBGrid2.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
dxDBGrid2.Bands[6].Visible:=true;
dxDBGrid2.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
dxDBGrid2.Bands[7].Visible:=true;
dxDBGrid2.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
dxDBGrid2.Bands[8].Visible:=true;
dxDBGrid2.Bands[8].Caption:=trim(frm_data_share.t_code_price_ctn.fieldbyname('<27>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>8').asstring);
end;
wwDBComboBox3.Items.Clear;
frm_data_share.t_sys_code_data.Filtered:=false;
frm_data_share.t_sys_code_data.Filter:='<27><><EFBFBD><EFBFBD>='+''''+'3006'+'''';
frm_data_share.t_sys_code_data.Filtered:=true;
if frm_data_share.t_sys_code_data.IsEmpty then
exit;
if frm_data_share.t_sys_code_data.Locate('ְԱ','ȫ<><C8AB><EFBFBD>׼<EFBFBD>',[])then
begin
if frm_data_share.t_sys_code_data.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
begin
dxDBGridMaskColumn6.Visible:=true;
dxDBGridMaskColumn7.Visible:=true;
dxDBGridMaskColumn8.Visible:=true;
dxDBGridMaskColumn9.Visible:=true;
dxDBGridMaskColumn10.Visible:=true;
dxDBGridMaskColumn11.Visible:=true;
dxDBGrid1Column45.Visible:=true;
dxDBGrid1Column50.Visible:=true;
end;
end;
if frm_data_share.t_sys_code_data.Locate('ְԱ','<27>׼۹<D7BC><DBB9><EFBFBD>',[])then
begin
if frm_data_share.t_sys_code_data.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
begin
dxDBGrid1Column12.Visible:=true;
dxDBGrid1Column13.Visible:=true;
dxDBGrid1Column14.Visible:=true;
dxDBGrid1Column15.Visible:=true;
dxDBGrid1Column16.Visible:=true;
dxDBGrid1Column17.Visible:=true;
dxDBGrid1Column46.Visible:=true;
dxDBGrid1Column51.Visible:=true;
end;
end;
if frm_data_share.t_sys_code_data.Locate('ְԱ','һ<><D2BB><EFBFBD>ۼ<EFBFBD>',[])then
begin
if frm_data_share.t_sys_code_data.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
begin
dxDBGrid1Column18.Visible:=true;
dxDBGrid1Column19.Visible:=true;
dxDBGridMaskColumn12.Visible:=true;
dxDBGridMaskColumn13.Visible:=true;
dxDBGridMaskColumn14.Visible:=true;
dxDBGrid1Column23.Visible:=true;
dxDBGrid1Column47.Visible:=true;
dxDBGrid1Column52.Visible:=true;
wwDBComboBox3.Items.Add('һ<><D2BB><EFBFBD>ۼ<EFBFBD>');
end;
end;
if frm_data_share.t_sys_code_data.Locate('ְԱ','<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>',[])then
begin
if frm_data_share.t_sys_code_data.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
begin
dxDBGrid1Column24.Visible:=true;
dxDBGrid1Column25.Visible:=true;
dxDBGrid1Column26.Visible:=true;
dxDBGrid1Column27.Visible:=true;
dxDBGrid1Column28.Visible:=true;
dxDBGrid1Column29.Visible:=true;
dxDBGrid1Column48.Visible:=true;
dxDBGrid1Column53.Visible:=true;
wwDBComboBox3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>');
end;
end;
if frm_data_share.t_sys_code_data.Locate('ְԱ','<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>',[])then
begin
if frm_data_share.t_sys_code_data.fieldbyname('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').asboolean then
begin
dxDBGrid1Column30.Visible:=true;
dxDBGrid1Column31.Visible:=true;
dxDBGrid1Column32.Visible:=true;
dxDBGrid1Column33.Visible:=true;
dxDBGrid1Column34.Visible:=true;
dxDBGrid1Column35.Visible:=true;
dxDBGrid1Column49.Visible:=true;
dxDBGrid1Column54.Visible:=true;
wwDBComboBox3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>');
end;
end;
end;
procedure Tfrm_info_price_ask.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_ask.t_price_askBeforeEdit(DataSet: TDataSet);
begin
if do_data('3005',t_price_ask.fieldbyname('<27><><EFBFBD><EFBFBD><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_ask.bsSkinButton12Click(Sender: TObject);
begin
t_price_ship.close;
t_price_ship.sql.clear;
t_price_ship.sql.add('SELECT * FROM t_price_ship where <20><>Ч<EFBFBD><D0A7><EFBFBD><EFBFBD>>=getdate()');
if wwDBLookupCombo2.text<>''then
t_price_ship.sql.add(' and Ŀ<>ĸ<EFBFBD> like '+''''+'%'+wwDBLookupCombo2.text+'%'+'''');
if RxDBLookupCombo3.DisplayValue<>''then
t_price_ship.sql.add(' and <20><><EFBFBD><EFBFBD>˾='+''''+RxDBLookupCombo3.DisplayValue+'''');
t_price_ship.sql.add('order by <20>˼۱<CBBC><DBB1><EFBFBD>');
t_price_ship.open;
end;
procedure Tfrm_info_price_ask.bsSkinButton13Click(Sender: TObject);
begin
if t_price_ship.Active=false then
exit;
if t_price_ship.IsEmpty then
exit;
if wwDBComboBox3.ItemIndex=-1 then
exit;
if t_price_ask.IsEmpty then
exit;
if bsSkinCheckRadioBox1.Checked then
begin
t_price_ask.edit;
t_price_ask['<27><><EFBFBD><EFBFBD>1']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'1').asstring;
end;
if bsSkinCheckRadioBox1.Checked then
begin
t_price_ask.edit;
t_price_ask['<27><><EFBFBD><EFBFBD>2']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'2').asstring;
end;
if bsSkinCheckRadioBox1.Checked then
begin
t_price_ask.edit;
t_price_ask['<27><><EFBFBD><EFBFBD>3']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'3').asstring;
end;
if bsSkinCheckRadioBox1.Checked then
begin
t_price_ask.edit;
t_price_ask['<27><><EFBFBD><EFBFBD>4']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'4').asstring;
end;
if bsSkinCheckRadioBox1.Checked then
begin
t_price_ask.edit;
t_price_ask['<27><><EFBFBD><EFBFBD>5']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'5').asstring;
end;
if bsSkinCheckRadioBox1.Checked then
begin
t_price_ask.edit;
t_price_ask['<27><><EFBFBD><EFBFBD>6']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'6').asstring;
end;
if bsSkinCheckRadioBox1.Checked then
begin
t_price_ask.edit;
t_price_ask['<27><><EFBFBD><EFBFBD>7']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'7').asstring;
end;
if bsSkinCheckRadioBox1.Checked then
begin
t_price_ask.edit;
t_price_ask['<27><><EFBFBD><EFBFBD>8']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'8').asstring;
end;
end;
procedure Tfrm_info_price_ask.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=frm_close_query(t_price_ask);
end;
procedure Tfrm_info_price_ask.bsSkinButton1Click(Sender: TObject);
begin
try
frm_info_price_ask_query:=tfrm_info_price_ask_query.Create (self);
frm_info_price_ask_query.ShowModal;
finally
frm_info_price_ask_query.Free;
end;
end;
procedure Tfrm_info_price_ask.wwDBComboBox2KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBComboBox(Key,wwDBComboBox1);
end;
procedure Tfrm_info_price_ask.wwDBComboBox1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo2);
end;
procedure Tfrm_info_price_ask.RxDBLookupCombo2KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit31);
end;
procedure Tfrm_info_price_ask.DBEdit31KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit1);
end;
procedure Tfrm_info_price_ask.DBEdit1KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit2);
end;
procedure Tfrm_info_price_ask.DBEdit2KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit3);
end;
procedure Tfrm_info_price_ask.DBEdit3KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBMemo(Key,DBMemo1);
end;
procedure Tfrm_info_price_ask.RxDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo3);
end;
procedure Tfrm_info_price_ask.wwDBLookupCombo3KeyPress(Sender: TObject;
var Key: Char);
begin
key_wwDBLookupCombo(Key,wwDBLookupCombo1);
end;
procedure Tfrm_info_price_ask.wwDBLookupCombo1KeyPress(Sender: TObject;
var Key: Char);
begin
key_RxDBLookupCombo(Key,RxDBLookupCombo20);
end;
procedure Tfrm_info_price_ask.RxDBLookupCombo20KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit4);
end;
procedure Tfrm_info_price_ask.DBEdit4KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit6);
end;
procedure Tfrm_info_price_ask.DBEdit6KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit8);
end;
procedure Tfrm_info_price_ask.DBEdit8KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit9);
end;
procedure Tfrm_info_price_ask.DBEdit9KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit5);
end;
procedure Tfrm_info_price_ask.DBEdit5KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit7);
end;
procedure Tfrm_info_price_ask.DBEdit7KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit36);
end;
procedure Tfrm_info_price_ask.DBEdit36KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit41);
end;
procedure Tfrm_info_price_ask.DBEdit41KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit33);
end;
procedure Tfrm_info_price_ask.DBEdit33KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit34);
end;
procedure Tfrm_info_price_ask.DBEdit34KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit32);
end;
procedure Tfrm_info_price_ask.DBEdit32KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit10);
end;
procedure Tfrm_info_price_ask.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_price_ask,'ѯ<>۱<EFBFBD><DBB1><EFBFBD>');
end;
end.