hanxuntao
/
DONGSHENG6
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 'master'
${ noResults }
DONGSHENG6/信息资源/u_info_price_release.pas

641 lines
23 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

unit u_info_price_release;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, DB, ADODB, DBCtrls, StdCtrls, Mask, wwdbedit,
Wwdotdot, Wwdbcomb, bsSkinCtrls, wwdblook, RxLookup, dxDBTLCl, dxGrClms,
dxDBCtrl, dxDBGrid, dxTL, dxCntner, ExtCtrls;
type
Tfrm_info_price_release = 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;
bsSkinGroupBox1: TbsSkinGroupBox;
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;
bsSkinPanel1: TbsSkinPanel;
Label8: TLabel;
Label10: TLabel;
RxDBLookupCombo3: TRxDBLookupCombo;
wwDBLookupCombo2: TwwDBLookupCombo;
bsSkinButton12: TbsSkinButton;
bsSkinButton13: TbsSkinButton;
wwDBComboBox3: TwwDBComboBox;
bsSkinGroupBox2: TbsSkinGroupBox;
Label14: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit31: TDBEdit;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
t_price_release: TADOQuery;
t_price_release1: TDataSource;
t_price_ship: TADOQuery;
t_price_ship1: TDataSource;
t_price_release_port: TADOQuery;
t_price_release_port1: TDataSource;
Label1: TLabel;
DBEdit11: TDBEdit;
bsSkinGroupBox3: TbsSkinGroupBox;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column4: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column5: TdxDBGridColumn;
dxDBGrid120GP: TdxDBGridColumn;
dxDBGrid140GP: TdxDBGridColumn;
dxDBGrid140HQ: TdxDBGridColumn;
dxDBGrid140RF: TdxDBGridColumn;
dxDBGrid140RH: TdxDBGridColumn;
dxDBGrid145HQ: TdxDBGridColumn;
dxDBGrid1Column20: TdxDBGridColumn;
dxDBGrid1Column21: TdxDBGridColumn;
dxDBGrid1Column37: TdxDBGridColumn;
dxDBGrid1Column38: TdxDBGridColumn;
dxDBGrid1Column39: TdxDBGridColumn;
Label2: TLabel;
dxDBGrid1Column22: TdxDBGridColumn;
bsSkinButton14: TbsSkinButton;
bsSkinButton15: TbsSkinButton;
dxDBGrid3: TdxDBGrid;
dxDBGrid3Column1: TdxDBGridMaskColumn;
dxDBGrid3Column2: TdxDBGridMaskColumn;
dxDBGrid3Column3: TdxDBGridDateColumn;
dxDBGrid3Column4: TdxDBGridMaskColumn;
dxDBGrid3Column5: TdxDBGridMaskColumn;
bsSkinButton16: TbsSkinButton;
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_releaseAfterInsert(DataSet: TDataSet);
procedure FormShow(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure t_price_releaseBeforeEdit(DataSet: TDataSet);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
procedure t_price_release_portAfterInsert(DataSet: TDataSet);
procedure bsSkinButton16Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure DBEdit31KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure dxDBGrid3ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_info_price_release: Tfrm_info_price_release;
implementation
uses u_main, u_data_share, my_sys_function, u_info_price_release_query;
{$R *.dfm}
procedure Tfrm_info_price_release.bsSkinButton9Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_info_price_release.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_info_price_release.Hide;
frm_info_price_release.ManualFloat(frm_info_price_release.BoundsRect );
frm_main.freeTabs('frm_info_price_release');
action:=cafree;
frm_info_price_release:=nil;
end;
procedure Tfrm_info_price_release.bsSkinButton7Click(Sender: TObject);
begin
table_Prior(t_price_release);
end;
procedure Tfrm_info_price_release.bsSkinButton6Click(Sender: TObject);
begin
table_next(t_price_release);
end;
procedure Tfrm_info_price_release.bsSkinButton11Click(Sender: TObject);
begin
table_post(t_price_release);
end;
procedure Tfrm_info_price_release.bsSkinButton8Click(Sender: TObject);
begin
table_cancel(t_price_release);
end;
procedure Tfrm_info_price_release.bsSkinButton4Click(Sender: TObject);
begin
table_delete(t_price_release);
end;
procedure Tfrm_info_price_release.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_release.State=dsinsert)or(t_price_release.State=dsedit) then
BEGIN
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>޸ģ<DEB8><C4A3>Ƿ񱣴棿',mtWarning,mbYesNoCancel,0);
if answer=mrYes then
begin
t_price_release.post;
end;
if answer=mrNo then
begin
t_price_release.cancel;
end;
if answer=mrCancel then
begin
exit;
end;
END;
Notebook1.PageIndex:=0;
bsSkinButton10.Caption:='<27>༭<EFBFBD>޸<EFBFBD>';
end;
end;
procedure Tfrm_info_price_release.bsSkinButton2Click(Sender: TObject);
begin
t_price_release.insert;
Notebook1.PageIndex:=1;
bsSkinButton10.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
end;
procedure Tfrm_info_price_release.bsSkinButton3Click(Sender: TObject);
var
afield : variant;
i: Integer;
begin
if t_price_release.IsEmpty then
exit;
afield := vararraycreate([0,t_price_release.fieldcount-1],varvariant);
for i := 0 to (t_price_release.fieldcount-1) do
begin
afield[i] :=t_price_release.fields[i].value ;
end;
t_price_release.append;
for i := 1 to (t_price_release.fieldcount-1) do
begin
if t_price_release.fields[i].FieldName<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
t_price_release.fields[i].value := afield[i] ;
end;
t_price_release['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_price_release['<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_release.bsSkinButton5Click(Sender: TObject);
begin
sys_print('<27>˼۷<CBBC><DBB7><EFBFBD><EFBFBD><EFBFBD>ӡ',2,t_price_release1,frm_data_share.t_code_price_ctn1,nil,nil,t_price_release_port1,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_info_price_release.t_price_releaseAfterInsert(
DataSet: TDataSet);
begin
t_price_release['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_price_release['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
end;
procedure Tfrm_info_price_release.FormShow(Sender: TObject);
begin
t_price_release.sql.Clear;
t_price_release.sql.add('SELECT top 100 * FROM t_price_release ');
t_price_release.sql.add('where '+open_data('3007','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no'));
t_price_release.sql.add(' order by <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
t_price_release.open;
t_price_release_port.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;
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_release.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_release.t_price_releaseBeforeEdit(
DataSet: TDataSet);
begin
if do_data('3007',t_price_release.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_release.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_release.bsSkinButton13Click(Sender: TObject);
var
i:integer;
begin
if wwDBComboBox3.ItemIndex=-1 then
begin
showmessage('<27><>ѡ<EFBFBD><D1A1>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۼۼ<DBBC><DBBC>𣡣<EFBFBD>');
exit;
end;
if t_price_ship.Active=false then
exit;
if t_price_ship.IsEmpty then
exit;
if t_price_release.IsEmpty then
exit;
if t_price_release.state=dsinsert then
t_price_release.post;
if dxDBGrid2.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid2.SelectedCount-1 do
begin
t_price_ship.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
t_price_release_port.insert;
t_price_release_port['<27><><EFBFBD><EFBFBD>1']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'1').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>2']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'2').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>3']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'3').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>4']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'4').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>5']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'5').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>6']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'6').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>7']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'7').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>8']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'8').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>˾']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring;
t_price_release_port['<27><><EFBFBD>˸<EFBFBD>']:=t_price_ship.fieldbyname('<27><><EFBFBD>˸<EFBFBD>').asstring;
t_price_release_port['Ŀ<>ĸ<EFBFBD>']:=t_price_ship.fieldbyname('Ŀ<>ĸ<EFBFBD>').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_price_release_port.post;
end;
exit;
end;
t_price_release_port.insert;
t_price_release_port['<27><><EFBFBD><EFBFBD>1']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'1').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>2']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'2').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>3']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'3').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>4']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'4').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>5']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'5').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>6']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'6').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>7']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'7').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>8']:=t_price_ship.fieldbyname(wwDBComboBox3.text+'8').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>˾']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD>˾').asstring;
t_price_release_port['<27><><EFBFBD>˸<EFBFBD>']:=t_price_ship.fieldbyname('<27><><EFBFBD>˸<EFBFBD>').asstring;
t_price_release_port['Ŀ<>ĸ<EFBFBD>']:=t_price_ship.fieldbyname('Ŀ<>ĸ<EFBFBD>').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').asstring;
t_price_release_port['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_price_ship.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring;
t_price_release_port.post;
end;
procedure Tfrm_info_price_release.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=frm_close_query(t_price_release);
end;
procedure Tfrm_info_price_release.bsSkinButton14Click(Sender: TObject);
begin
if t_price_release_port.state=dsedit then
t_price_release_port.post;
end;
procedure Tfrm_info_price_release.bsSkinButton15Click(Sender: TObject);
begin
table_delete(t_price_release_port);
end;
procedure Tfrm_info_price_release.t_price_release_portAfterInsert(
DataSet: TDataSet);
begin
t_price_release_port['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_price_release['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
procedure Tfrm_info_price_release.bsSkinButton16Click(Sender: TObject);
begin
table_cancel(t_price_release_port);
end;
procedure Tfrm_info_price_release.bsSkinButton1Click(Sender: TObject);
begin
try
frm_info_price_release_query:=tfrm_info_price_release_query.Create (self);
frm_info_price_release_query.ShowModal;
finally
frm_info_price_release_query.Free;
end;
end;
procedure Tfrm_info_price_release.DBEdit31KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit11);
end;
procedure Tfrm_info_price_release.DBEdit11KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit1);
end;
procedure Tfrm_info_price_release.DBEdit1KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit2);
end;
procedure Tfrm_info_price_release.DBEdit2KeyPress(Sender: TObject;
var Key: Char);
begin
key_DBEdit(Key,DBEdit3);
end;
procedure Tfrm_info_price_release.dxDBGrid3ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_price_release,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end.
Reference in New Issue View Git Blame Copy Permalink