1445 lines
37 KiB
ObjectPascal
1445 lines
37 KiB
ObjectPascal
unit U_BPZdy_LRSHK_M;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
|
||
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
|
||
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||
cxButtonEdit, BtnEdit, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL,
|
||
cxTLData, cxContainer, cxCurrencyEdit, cxCheckBox, cxSplitter,jpeg,U_SLT_PBSK,U_SLT,Math, Menus, cxCalendar;
|
||
|
||
type
|
||
TfrmBPZDY_LRSHK_M = class(TForm)
|
||
ADOQueryMain: TADOQuery;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
ClientDataSet1: TClientDataSet;
|
||
ADOConnection1: TADOConnection;
|
||
ThreeImgList: TImageList;
|
||
DataSource2: TDataSource;
|
||
ML_GYS: TClientDataSet;
|
||
DataSource3: TDataSource;
|
||
ML_GX: TClientDataSet;
|
||
ADOQuery3: TADOQuery;
|
||
Panel2: TPanel;
|
||
Panel4: TPanel;
|
||
Panel5: TPanel;
|
||
DataSource4: TDataSource;
|
||
ADOQueryTree: TADOQuery;
|
||
Order_Tree: TClientDataSet;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
cxStyleRepository2: TcxStyleRepository;
|
||
cxStyle2: TcxStyle;
|
||
cxSplitter1: TcxSplitter;
|
||
ScrollBox1: TScrollBox;
|
||
ToolBar2: TToolBar;
|
||
ToolBar1: TToolBar;
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
BPNameM: TEdit;
|
||
BPCodeM: TEdit;
|
||
TBClose: TToolButton;
|
||
adoqueryPicture: TADOQuery;
|
||
ScrollBox2: TScrollBox;
|
||
Panel3: TPanel;
|
||
Button1: TButton;
|
||
THB: TToolButton;
|
||
TCF: TToolButton;
|
||
ToolButton1: TToolButton;
|
||
TXZCol: TToolButton;
|
||
Panel101: TPanel;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
Panel9: TPanel;
|
||
Panel11: TPanel;
|
||
Panel12: TPanel;
|
||
Label5: TLabel;
|
||
Edit5: TEdit;
|
||
Edit6: TEdit;
|
||
Panel13: TPanel;
|
||
Panel14: TPanel;
|
||
Label6: TLabel;
|
||
Edit7: TEdit;
|
||
Edit8: TEdit;
|
||
Panel15: TPanel;
|
||
Panel16: TPanel;
|
||
Label7: TLabel;
|
||
Edit9: TEdit;
|
||
Edit10: TEdit;
|
||
Panel17: TPanel;
|
||
Panel18: TPanel;
|
||
Label8: TLabel;
|
||
Edit11: TEdit;
|
||
Edit12: TEdit;
|
||
Panel19: TPanel;
|
||
Panel20: TPanel;
|
||
Label9: TLabel;
|
||
Edit13: TEdit;
|
||
Edit14: TEdit;
|
||
Panel21: TPanel;
|
||
Panel22: TPanel;
|
||
Label10: TLabel;
|
||
Edit15: TEdit;
|
||
Edit16: TEdit;
|
||
Panel23: TPanel;
|
||
Panel24: TPanel;
|
||
Label11: TLabel;
|
||
Edit17: TEdit;
|
||
Edit18: TEdit;
|
||
Panel25: TPanel;
|
||
Panel26: TPanel;
|
||
Label12: TLabel;
|
||
Edit19: TEdit;
|
||
Edit20: TEdit;
|
||
Panel27: TPanel;
|
||
Panel28: TPanel;
|
||
Label13: TLabel;
|
||
Edit21: TEdit;
|
||
Edit22: TEdit;
|
||
Panel29: TPanel;
|
||
Panel30: TPanel;
|
||
Label14: TLabel;
|
||
Edit23: TEdit;
|
||
Edit24: TEdit;
|
||
Panel31: TPanel;
|
||
Panel32: TPanel;
|
||
Label15: TLabel;
|
||
Edit25: TEdit;
|
||
Edit26: TEdit;
|
||
Panel33: TPanel;
|
||
Panel34: TPanel;
|
||
Label16: TLabel;
|
||
Edit27: TEdit;
|
||
Edit28: TEdit;
|
||
Panel35: TPanel;
|
||
Panel36: TPanel;
|
||
Label17: TLabel;
|
||
Edit29: TEdit;
|
||
Edit30: TEdit;
|
||
Panel37: TPanel;
|
||
Panel38: TPanel;
|
||
Label18: TLabel;
|
||
Edit31: TEdit;
|
||
Edit32: TEdit;
|
||
Panel39: TPanel;
|
||
Panel40: TPanel;
|
||
Label19: TLabel;
|
||
Edit33: TEdit;
|
||
Edit34: TEdit;
|
||
Panel41: TPanel;
|
||
Panel42: TPanel;
|
||
Label20: TLabel;
|
||
Edit35: TEdit;
|
||
Edit36: TEdit;
|
||
Panel43: TPanel;
|
||
Panel44: TPanel;
|
||
Label21: TLabel;
|
||
Edit37: TEdit;
|
||
Edit38: TEdit;
|
||
Panel45: TPanel;
|
||
Panel46: TPanel;
|
||
Label22: TLabel;
|
||
Edit39: TEdit;
|
||
Edit40: TEdit;
|
||
Panel47: TPanel;
|
||
Panel48: TPanel;
|
||
Label23: TLabel;
|
||
Edit41: TEdit;
|
||
Edit42: TEdit;
|
||
Panel49: TPanel;
|
||
Panel50: TPanel;
|
||
Label24: TLabel;
|
||
Edit43: TEdit;
|
||
Edit44: TEdit;
|
||
Panel51: TPanel;
|
||
Panel52: TPanel;
|
||
Label25: TLabel;
|
||
Edit45: TEdit;
|
||
Edit46: TEdit;
|
||
Panel53: TPanel;
|
||
Panel54: TPanel;
|
||
Label26: TLabel;
|
||
Edit47: TEdit;
|
||
Edit48: TEdit;
|
||
Panel55: TPanel;
|
||
Panel56: TPanel;
|
||
Label27: TLabel;
|
||
Edit49: TEdit;
|
||
Edit50: TEdit;
|
||
Panel57: TPanel;
|
||
Panel58: TPanel;
|
||
Label28: TLabel;
|
||
Edit51: TEdit;
|
||
Edit52: TEdit;
|
||
Panel59: TPanel;
|
||
Panel60: TPanel;
|
||
Label29: TLabel;
|
||
Edit53: TEdit;
|
||
Edit54: TEdit;
|
||
Panel61: TPanel;
|
||
Panel62: TPanel;
|
||
Label30: TLabel;
|
||
Edit55: TEdit;
|
||
Edit56: TEdit;
|
||
Panel63: TPanel;
|
||
Panel64: TPanel;
|
||
Label31: TLabel;
|
||
Edit57: TEdit;
|
||
Edit58: TEdit;
|
||
Panel65: TPanel;
|
||
Panel66: TPanel;
|
||
Label32: TLabel;
|
||
Edit59: TEdit;
|
||
Edit60: TEdit;
|
||
Panel67: TPanel;
|
||
Panel68: TPanel;
|
||
Label33: TLabel;
|
||
Edit61: TEdit;
|
||
Edit62: TEdit;
|
||
Panel69: TPanel;
|
||
Panel70: TPanel;
|
||
Label34: TLabel;
|
||
Edit63: TEdit;
|
||
Edit64: TEdit;
|
||
Panel71: TPanel;
|
||
Panel72: TPanel;
|
||
Label35: TLabel;
|
||
Edit65: TEdit;
|
||
Edit66: TEdit;
|
||
Panel73: TPanel;
|
||
Panel74: TPanel;
|
||
Label36: TLabel;
|
||
Edit67: TEdit;
|
||
Edit68: TEdit;
|
||
Panel75: TPanel;
|
||
Panel76: TPanel;
|
||
Label37: TLabel;
|
||
Edit69: TEdit;
|
||
Edit70: TEdit;
|
||
OrdBP_SHWH: TClientDataSet;
|
||
Panel10: TPanel;
|
||
Label4: TLabel;
|
||
Edit3: TEdit;
|
||
Edit4: TEdit;
|
||
Panel8: TPanel;
|
||
Label3: TLabel;
|
||
Edit1: TEdit;
|
||
Edit2: TEdit;
|
||
N2: TMenuItem;
|
||
cxStyle3: TcxStyle;
|
||
cxDBTreeList1: TcxDBTreeList;
|
||
treeName1: TcxDBTreeListColumn;
|
||
Panel6: TPanel;
|
||
Panel7: TPanel;
|
||
Label38: TLabel;
|
||
Edit71: TEdit;
|
||
Edit72: TEdit;
|
||
Panel77: TPanel;
|
||
Panel78: TPanel;
|
||
Label39: TLabel;
|
||
Edit73: TEdit;
|
||
Edit74: TEdit;
|
||
Panel79: TPanel;
|
||
Panel80: TPanel;
|
||
Label40: TLabel;
|
||
Edit75: TEdit;
|
||
Edit76: TEdit;
|
||
Panel81: TPanel;
|
||
Panel82: TPanel;
|
||
Label41: TLabel;
|
||
Edit77: TEdit;
|
||
Edit78: TEdit;
|
||
Panel83: TPanel;
|
||
Panel84: TPanel;
|
||
Label42: TLabel;
|
||
Edit79: TEdit;
|
||
Edit80: TEdit;
|
||
Panel85: TPanel;
|
||
Panel86: TPanel;
|
||
Label43: TLabel;
|
||
Edit81: TEdit;
|
||
Edit82: TEdit;
|
||
Panel87: TPanel;
|
||
Panel88: TPanel;
|
||
Label44: TLabel;
|
||
Edit83: TEdit;
|
||
Edit84: TEdit;
|
||
Panel89: TPanel;
|
||
Panel90: TPanel;
|
||
Label45: TLabel;
|
||
Edit85: TEdit;
|
||
Edit86: TEdit;
|
||
Panel91: TPanel;
|
||
Panel92: TPanel;
|
||
Label46: TLabel;
|
||
Edit87: TEdit;
|
||
Edit88: TEdit;
|
||
Panel93: TPanel;
|
||
Panel94: TPanel;
|
||
Label47: TLabel;
|
||
Edit89: TEdit;
|
||
Edit90: TEdit;
|
||
Panel95: TPanel;
|
||
Panel96: TPanel;
|
||
Label48: TLabel;
|
||
Edit91: TEdit;
|
||
Edit92: TEdit;
|
||
Panel97: TPanel;
|
||
Panel98: TPanel;
|
||
Label49: TLabel;
|
||
Edit93: TEdit;
|
||
Edit94: TEdit;
|
||
Panel99: TPanel;
|
||
Panel100: TPanel;
|
||
Label50: TLabel;
|
||
Edit95: TEdit;
|
||
Edit96: TEdit;
|
||
Panel102: TPanel;
|
||
Panel103: TPanel;
|
||
Label51: TLabel;
|
||
Edit97: TEdit;
|
||
Edit98: TEdit;
|
||
Panel104: TPanel;
|
||
Panel105: TPanel;
|
||
Label52: TLabel;
|
||
Edit99: TEdit;
|
||
Edit100: TEdit;
|
||
Panel106: TPanel;
|
||
label554: TLabel;
|
||
Label555: TLabel;
|
||
SY: TButton;
|
||
XY: TButton;
|
||
cxGrid1: TcxGrid;
|
||
TV1: TcxGridDBTableView;
|
||
V1BPCode: TcxGridDBColumn;
|
||
V1BPName: TcxGridDBColumn;
|
||
v1MBPGYSName: TcxGridDBColumn;
|
||
V1BPID: TcxGridDBColumn;
|
||
V1MNo: TcxGridDBColumn;
|
||
V1BPPrice: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
V1Ssel: TcxGridDBColumn;
|
||
V1SKID: TcxGridDBColumn;
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure BPNamehange(Sender: TObject);
|
||
procedure V1NotePropertiesEditValueChanged(Sender: TObject);
|
||
procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
|
||
procedure v1note1PropertiesEditValueChanged(Sender: TObject);
|
||
procedure V1BPCodePropertiesEditValueChanged(Sender: TObject);
|
||
procedure V1BPNamePropertiesEditValueChanged(Sender: TObject);
|
||
procedure BPCodeMChange(Sender: TObject);
|
||
procedure Tv3CellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
procedure TPBLBClick(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure cxDBTreeList1Click(Sender: TObject);
|
||
procedure TSHClick(Sender: TObject);
|
||
procedure TV1MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure THBClick(Sender: TObject);
|
||
procedure TCFClick(Sender: TObject);
|
||
procedure TXZColClick(Sender: TObject);
|
||
procedure N1Click(Sender: TObject);
|
||
procedure Panel101MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure TDYClick(Sender: TObject);
|
||
procedure N2Click(Sender: TObject);
|
||
procedure Edit1Exit(Sender: TObject);
|
||
procedure Edit2Exit(Sender: TObject);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure XYClick(Sender: TObject);
|
||
procedure SYClick(Sender: TObject);
|
||
private
|
||
FSKID,FCPID,FCPNo,FCPName,FInt,FBPIDSel:string;
|
||
my,mz:integer;
|
||
procedure InitGrid();
|
||
procedure SaveData();
|
||
procedure initTree();
|
||
procedure SSetEditDataCDSNew(yClientDataset:TclientDataSet; mClientDataset:TclientDataSet );
|
||
procedure initimage();
|
||
procedure initimageSH();
|
||
procedure InitSHByOrdBP_SH();
|
||
{ Private declarations }
|
||
public
|
||
flag,flagname,snote,MainType,FGYName,FBPIDSH,canshu1,FBPID:string;
|
||
Formid:string;
|
||
fnote,fnote1,forderno,fZdyFlag,ViewFlag,fHelpType:Boolean;
|
||
PPSTE:integer;
|
||
|
||
{ Public declarations }
|
||
end;
|
||
var
|
||
frmBPZDY_LRSHK_M: TfrmBPZDY_LRSHK_M;
|
||
Mach: array of TfrmSLT_PBSK;
|
||
Mach1: array of TfrmSlt;
|
||
implementation
|
||
uses
|
||
U_DataLink,U_Fun10,U_Fun,U_BPZdy_SH, U_BPZdy_HXK,U_CPTypePB,U_FileUp_TP,U_BPZdy_Panel_M,
|
||
U_FileUp,U_FileUp_PB,U_FileUp_TPSH,U_BPZdy_Panel,U_BPZdy_PanelCX,U_BPZdy_YT;
|
||
|
||
{$R *.dfm}
|
||
procedure TfrmBPZDY_LRSHK_M.SSetEditDataCDSNew(yClientDataset:TclientDataSet; mClientDataset:TclientDataSet );
|
||
var
|
||
i:integer;
|
||
k:integer;
|
||
mfieldName:string;
|
||
begin
|
||
if yClientDataset.IsEmpty then exit;
|
||
K:=1;
|
||
try
|
||
mClientDataset.DisableControls;
|
||
mClientDataset.Filtered:=false;
|
||
with mClientDataset do
|
||
begin
|
||
Append;
|
||
for i:=0 to yClientDataset.FieldCount-1 do
|
||
begin
|
||
mfieldName:=trim(yClientDataset.fields[i].FieldName);
|
||
fieldbyname(mfieldName).Value:=yClientDataset.Fields[i].Value;
|
||
end;
|
||
post;
|
||
inc(k);
|
||
end;
|
||
if not mClientDataset.IsEmpty then
|
||
begin
|
||
mClientDataset.First;
|
||
end;
|
||
finally
|
||
mClientDataset.First;
|
||
mClientDataset.EnableControls;
|
||
end;
|
||
end;
|
||
procedure TfrmBPZDY_LRSHK_M.initTree();
|
||
begin
|
||
with ADOQueryTree do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('select *');
|
||
sql.Add(', Case when isnull(CPNo,'''')<>'''' then RTrim(CPNo)+''/''+CPName else CPName end as CP ');
|
||
SQL.Add('from CP_TypePB_M order by CPlevel,CPOrder,CPName');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTree,Order_Tree);
|
||
SInitCDSData20(ADOQueryTree,Order_Tree);
|
||
cxDBTreeList1.Items[0].Expand(true);
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.initimage();
|
||
var
|
||
i,j:integer;
|
||
jpg:TJpegImage;
|
||
myStream: TADOBlobStream;
|
||
begin
|
||
j:=length(Mach);
|
||
if j>0 then
|
||
begin
|
||
for i:=0 to j-1 do
|
||
begin
|
||
Mach[i].free;
|
||
end;
|
||
//Finalize(Mach);
|
||
end;
|
||
SetLength(Mach, 0);
|
||
IF ClientDataSet1.IsEmpty then exit;
|
||
try
|
||
with adoqueryPicture do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add(' select A.TFID,A.WBID,B.XFID,A.FilesOther,B.FileName,C.* from BP_ZDY_M C ');
|
||
sql.Add(' inner join XD_File_TP B on C.SKID =B.SKID');
|
||
SQL.Add(' inner join TP_File_TP A on B.CYID=A.WBID ');
|
||
sql.Add(' where C.BPID='+quotedstr(trim(ClientDataSet1.fieldbyname('BPID').AsString)));
|
||
//ShowMessage(sql.Text);
|
||
open;
|
||
end;
|
||
j:=adoqueryPicture.RecordCount;
|
||
if j<1 then exit;
|
||
adoqueryPicture.DisableControls;
|
||
adoqueryPicture.First;
|
||
SetLength(Mach, j);
|
||
with adoqueryPicture do
|
||
begin
|
||
First;
|
||
i:=0;
|
||
while not eof do
|
||
begin
|
||
if triM(adoqueryPicture.fieldbyname('TFID').AsString)<>'' then
|
||
begin
|
||
jpg:=TJpegImage.Create();
|
||
myStream:=tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')),bmread);
|
||
jpg.LoadFromStream(myStream);
|
||
end;
|
||
Mach[i] := TfrmSLT_PBSK.Create(Self);
|
||
Mach[i].Name:=trim(adoqueryPicture.fieldbyname('XFID').AsString);
|
||
Mach[i].Parent := ScrollBox1;
|
||
Mach[I].Left:=0+410*i;
|
||
if triM(adoqueryPicture.fieldbyname('TFID').AsString)<>'' then
|
||
begin
|
||
Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString,adoqueryPicture.fieldbyname('FileName').AsString,jpg);
|
||
end;
|
||
i:=i+1;
|
||
Next;
|
||
end;
|
||
end;
|
||
adoqueryPicture.EnableControls;
|
||
finally
|
||
jpg.free;
|
||
//application.ProcessMessages;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.initimageSH();
|
||
var
|
||
i,j,x:Integer;
|
||
begin
|
||
with ScrollBox2 do
|
||
begin
|
||
for x:=0 to ScrollBox2.ControlCount-1 do
|
||
begin
|
||
if Controls[x] is TPanel then
|
||
begin
|
||
if TPanel(Controls[x]).Ctl3D=False then
|
||
begin
|
||
TPanel(Controls[x]).Visible:=false;
|
||
ScrollBox2.Refresh;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
ScrollBox2.Refresh;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.* ');
|
||
SQL.Add(',MXGS=(select count(C.PTID) from BP_ColZDY_M C where C.SKID=B.SKID and isnull(C.SKID,'''')<>'''') ');
|
||
sql.Add('from BP_ColZDY_M B ');
|
||
sql.Add('inner join RT_PTColor_M A on B.PTID=A.PTID ');
|
||
sql.Add('where B.SKID='''+trim(FBPIDSH)+''' and isnull(B.SKID,'''')<>'''' ');
|
||
sql.Add(' order by cast(B.ColNo as int)');
|
||
//ShowMessage(sql.Text);
|
||
Open;
|
||
end;
|
||
mz:=ceil(ADOQueryTemp.fieldbyname('MXGS').AsInteger/50);
|
||
label554.Caption:=inttostr(my)+'/'+inttostr(mz);
|
||
SCreateCDS20(ADOQueryTemp,OrdBP_SHWH);
|
||
SInitCDSData20(ADOQueryTemp,OrdBP_SHWH);
|
||
if OrdBP_SHWH.IsEmpty then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''' ');
|
||
sql.Add('where SKID='''+trim(FBPIDSH)+'''');
|
||
ExecSQL;
|
||
end;
|
||
with ClientDataSet1 do
|
||
begin
|
||
edit;
|
||
fieldbyname('SKID').Value:='';
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''+trim(FBPIDSH)+''' ');
|
||
sql.Add('where BPID='''+trim(FBPIDSel)+'''');
|
||
ExecSQL;
|
||
end;
|
||
with ClientDataSet1 do
|
||
begin
|
||
edit;
|
||
fieldbyname('SKID').Value:=Trim(FBPIDSH);
|
||
end;
|
||
end;
|
||
InitSHByOrdBP_SH();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.InitSHByOrdBP_SH();
|
||
var
|
||
i,j,z,x,q:Integer;
|
||
begin
|
||
// OrdBP_SHWH.DisableControls;
|
||
with ScrollBox2 do
|
||
begin
|
||
for x:=0 to ScrollBox2.ControlCount-1 do
|
||
begin
|
||
TPanel(Controls[x]).Visible:=false;
|
||
end;
|
||
end;
|
||
with OrdBP_SHWH do
|
||
begin
|
||
First;
|
||
i:=0;
|
||
q:=1;
|
||
while not Eof do
|
||
begin
|
||
if (q>(my-1)*50) and (q<=my*50) then
|
||
begin
|
||
with ScrollBox2 do
|
||
begin
|
||
TPanel(Controls[i]).Visible:=True;
|
||
TPanel(Controls[i]).Hint:=Trim(OrdBP_SHWH.Fieldbyname('PTID').AsString);
|
||
TPanel(Controls[i]).Color:=StrToInt('$'+Trim(OrdBP_SHWH.Fieldbyname('ColDaiMa').AsString));
|
||
with TPanel(Controls[i]) do
|
||
begin
|
||
for j:=0 to ControlCount-1 do
|
||
begin
|
||
if Controls[j] is TPanel then
|
||
begin
|
||
with TPanel(Controls[j]) do
|
||
begin
|
||
for z:=0 to ControlCount-1 do
|
||
begin
|
||
if Controls[z] is TEdit then
|
||
begin
|
||
if TEdit(Controls[z]).Tag=1 then
|
||
begin
|
||
TEdit(Controls[z]).Text:=Trim(OrdBP_SHWH.Fieldbyname('ColNo').AsString);
|
||
TEdit(Controls[z]).Hint:=Trim(OrdBP_SHWH.Fieldbyname('PTID').AsString);
|
||
end else
|
||
begin
|
||
TEdit(Controls[z]).Text:=Trim(OrdBP_SHWH.Fieldbyname('ColNameKH').AsString);
|
||
TEdit(Controls[z]).Hint:=Trim(OrdBP_SHWH.Fieldbyname('PTID').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
i:=i+1;
|
||
end;
|
||
q:=q+1;
|
||
Next;
|
||
end;
|
||
end;
|
||
//OrdBP_SHWH.EnableControls;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.SaveData();
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.FormCreate(Sender: TObject);
|
||
begin
|
||
try
|
||
//cxGrid1.Align:=alClient;
|
||
with ADOConnection1 do
|
||
begin
|
||
Connected:=false;
|
||
ConnectionString:=DConString;
|
||
//ConnectionString:='';
|
||
Connected:=true;
|
||
end;
|
||
except;
|
||
frmBPZDY_LRSHK_M.Free;
|
||
end;
|
||
canshu1:=Trim(DParameters1);
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
ToolBar1.SetFocus;
|
||
Finalize(Mach1);
|
||
Finalize(Mach);
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.InitGrid();
|
||
begin
|
||
try
|
||
ADOQueryMain.DisableControls;
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' exec P_Select_BP_M :Code,:PState,:CYType,:Stats ');
|
||
if Formid='2' then
|
||
begin
|
||
Parameters.ParamByName('Code').Value:=FBPID;
|
||
Parameters.ParamByName('PState').Value:=1;
|
||
end
|
||
else
|
||
begin
|
||
Parameters.ParamByName('Code').Value:='';
|
||
Parameters.ParamByName('PState').Value:=0;
|
||
end;
|
||
Parameters.ParamByName('CYType').Value:=Trim(Order_Tree.fieldbyname('CPID').AsString);
|
||
Parameters.ParamByName('Stats').Value:='';
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain,ClientDataSet1);
|
||
SInitCDSData20(ADOQueryMain,ClientDataSet1);
|
||
finally
|
||
ADOQueryMain.EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.TBCloseClick(Sender: TObject);
|
||
begin
|
||
panel1.SetFocus;
|
||
WriteCxGrid('<27>Զ<EFBFBD><D4B6><EFBFBD>'+Trim(flag)+'104',TV1,'<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.FormShow(Sender: TObject);
|
||
begin
|
||
initTree();
|
||
InitGrid();
|
||
if canshu1='<27><>ѯ' then
|
||
begin
|
||
THB.Visible:=false;
|
||
TCF.Visible:=false;
|
||
ToolButton1.Visible:=false;
|
||
TXZCol.Visible:=false;
|
||
Panel3.Visible:=false;
|
||
end
|
||
else
|
||
begin
|
||
THB.Visible:=true;
|
||
TCF.Visible:=true;
|
||
ToolButton1.Visible:=true;
|
||
TXZCol.Visible:=true;
|
||
Panel3.Visible:=true;
|
||
end;
|
||
ReadCxGrid('<27>Զ<EFBFBD><D4B6><EFBFBD>'+Trim(flag)+'104',TV1,'<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
frmBPZDY_LRSHK_M.Caption:=Trim(flagname);
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.* from RT_PTColor_M A ');
|
||
sql.Add('inner join BP_ColZDY_M B on B.PTID=A.PTID ');
|
||
sql.Add('where 1=2 ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp,OrdBP_SHWH);
|
||
SInitCDSData20(ADOQueryTemp,OrdBP_SHWH);
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.BPNamehange(Sender: TObject);
|
||
var
|
||
fsj:String;
|
||
begin
|
||
if Trim(BPNameM.Text)<>'' then
|
||
begin
|
||
fsj:=' BPName like '''+'%'+Trim(BPNameM.Text)+'%'+'''';
|
||
end;
|
||
if ADOQueryMain.Active then
|
||
begin
|
||
SDofilter(ADOQueryMain,fsj);
|
||
SCreateCDS20(ADOQueryMain,ClientDataSet1);
|
||
SInitCDSData20(ADOQueryMain,ClientDataSet1);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.V1NotePropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue:string;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
with ClientDataSet1 do
|
||
begin
|
||
Edit;
|
||
FieldByName('BPKZ').Value:=mvalue;
|
||
//Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.V1HelpTypePropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue:string;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
with ClientDataSet1 do
|
||
begin
|
||
Edit;
|
||
FieldByName('BPWS').Value:=mvalue;
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.v1note1PropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue:string;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
with ClientDataSet1 do
|
||
begin
|
||
Edit;
|
||
FieldByName('BPMiDu').Value:=mvalue;
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.V1BPCodePropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue:string;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
with ClientDataSet1 do
|
||
begin
|
||
Edit;
|
||
FieldByName('BPCode').Value:=mvalue;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.V1BPNamePropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue:string;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
with ClientDataSet1 do
|
||
begin
|
||
Edit;
|
||
FieldByName('BPName').Value:=mvalue;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.BPCodeMChange(Sender: TObject);
|
||
var
|
||
fsj:String;
|
||
begin
|
||
if Trim(BPCodeM.Text)<>'' then
|
||
begin
|
||
fsj:=' BPCode like '''+'%'+Trim(BPCodeM.Text)+'%'+'''';
|
||
end;
|
||
if ADOQueryMain.Active then
|
||
begin
|
||
SDofilter(ADOQueryMain,fsj);
|
||
SCreateCDS20(ADOQueryMain,ClientDataSet1);
|
||
SInitCDSData20(ADOQueryMain,ClientDataSet1);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.Tv3CellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
var i:Integer;
|
||
begin
|
||
if ML_GX.IsEmpty then exit;
|
||
ML_GX.Delete;
|
||
i:=1;
|
||
ML_GX.DisableControls;
|
||
with ML_GX do
|
||
begin
|
||
first;
|
||
while not eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('BPMiDu').Value:=i;
|
||
i:=i+1;
|
||
next;
|
||
end;
|
||
end;
|
||
ML_GX.EnableControls;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.TPBLBClick(Sender: TObject);
|
||
begin
|
||
frmCPTypePB:=TfrmCPTypePB.Create(self);
|
||
with frmCPTypePB do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
|
||
end;
|
||
free;
|
||
end;
|
||
initTree();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.ToolButton1Click(Sender: TObject);
|
||
var
|
||
maxno,FColID:string;
|
||
j,i:Integer;
|
||
begin
|
||
ToolBar1.SetFocus;
|
||
BPCodeM.SetFocus;
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
OrdBP_SHWH.DisableControls;
|
||
with OrdBP_SHWH do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
FColID:=Trim(fieldbyname('ColID').AsString);
|
||
if FieldByName('ColNo').AsString='' then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
application.MessageBox('ɫ<>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if FieldByName('ColNameKH').AsString='' then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
application.MessageBox('<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if Trim(FColID)='' then
|
||
begin
|
||
if GetLSNo(ADOQueryCmd,maxno,'CL','BP_ColZDY_M',3,1)=False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(FColID);
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from BP_ColZDY_M where ColID='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
if Trim(FColID)='' then
|
||
begin
|
||
Append;
|
||
end else
|
||
begin
|
||
Edit;
|
||
end;
|
||
FieldByName('ColID').Value:=Trim(maxno);
|
||
FieldByName('PTID').Value:=Trim(OrdBP_SHWH.fieldbyname('PTID').AsString);
|
||
FieldByName('ColNo').Value:=Trim(OrdBP_SHWH.fieldbyname('ColNo').AsString);
|
||
FieldByName('ColNameKH').Value:=Trim(OrdBP_SHWH.fieldbyname('ColNameKH').AsString);
|
||
FieldByName('SKID').Value:=Trim(FBPIDSH);
|
||
Post;
|
||
end;
|
||
Edit;
|
||
FieldByName('ColID').Value:=Trim(maxno);
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
SQL.Add('update RT_PTColor_M set ColNameKH='''+trim(OrdBP_SHWH.fieldbyname('ColNameKH').AsString)+''' ');
|
||
sql.Add(' where PTID='''+trim(OrdBP_SHWH.fieldbyname('PTID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
//Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
OrdBP_SHWH.EnableControls;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
initimageSH();
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ');
|
||
except
|
||
OrdBP_SHWH.EnableControls;
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!','<27><>ʾ');
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.cxDBTreeList1Click(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
if Order_Tree.FieldByName('CPLevel').AsInteger<3 then
|
||
begin
|
||
|
||
end else
|
||
begin
|
||
FSKID:='';
|
||
FCPID:=Trim(Order_Tree.fieldbyname('CPID').AsString);
|
||
FCPNo:=Trim(Order_Tree.fieldbyname('CPNo').AsString);
|
||
FCPName:=Trim(Order_Tree.fieldbyname('CPName').AsString);
|
||
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.TSHClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmFileUp_TPSH:=TfrmFileUp_TPSH.Create(Application);
|
||
with frmFileUp_TPSH do
|
||
begin
|
||
if Self.ClientDataSet1.fieldbyname('SKID').AsString='' then
|
||
begin
|
||
Code.Text:=Trim(Self.ClientDataSet1.fieldbyname('BPCode').AsString); //ɫ<><C9AB><EFBFBD><EFBFBD>SKID
|
||
CYID:=Trim(Self.ClientDataSet1.fieldbyname('BPCode').AsString);
|
||
FSKID:=Trim(Self.ClientDataSet1.fieldbyname('BPCode').AsString);
|
||
end
|
||
else
|
||
begin
|
||
Code.Text:=Trim(Self.ClientDataSet1.fieldbyname('SKID').AsString); //ɫ<><C9AB><EFBFBD><EFBFBD>SKID
|
||
CYID:=Trim(Self.ClientDataSet1.fieldbyname('SKID').AsString);
|
||
FSKID:=Trim(Self.ClientDataSet1.fieldbyname('SKID').AsString);
|
||
end;
|
||
if ShowModal=1 then
|
||
begin
|
||
if Self.ClientDataSet1.fieldbyname('SKID').AsString='' then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''+Trim(Self.ClientDataSet1.fieldbyname('BPCode').AsString)+''' ');
|
||
sql.Add('where BPID='''+Trim(ClientDataSet1.fieldbyname('BPID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
with Self.ClientDataSet1 do
|
||
begin
|
||
edit;
|
||
FieldByName('SKID').Value:=Trim(fieldbyname('BPCode').AsString);
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''+Trim(Self.ClientDataSet1.fieldbyname('SKID').AsString)+''' ');
|
||
sql.Add('where BPID='''+Trim(ClientDataSet1.fieldbyname('BPID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
with Self.ClientDataSet1 do
|
||
begin
|
||
edit;
|
||
FieldByName('SKID').Value:=Trim(fieldbyname('SKID').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmFileUp_TPSH.Free;
|
||
end;
|
||
initimageSH();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.TV1MouseDown(Sender: TObject;
|
||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
Formid:='1';
|
||
my:=1;
|
||
if Trim(ClientDataSet1.fieldbyname('SKID').asstring)='' then
|
||
FBPIDSH:=Trim(ClientDataSet1.fieldbyname('BPCode').asstring)
|
||
else
|
||
FBPIDSH:=Trim(ClientDataSet1.fieldbyname('SKID').asstring);
|
||
FBPIDSel:=Trim(ClientDataSet1.fieldbyname('BPID').asstring);
|
||
initimage();
|
||
initimageSH();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.Button1Click(Sender: TObject);
|
||
begin
|
||
try
|
||
frmFileUp_PB:=TfrmFileUp_PB.Create(Application);
|
||
with frmFileUp_PB do
|
||
begin
|
||
if Self.ClientDataSet1.fieldbyname('SKID').AsString='' then
|
||
begin
|
||
Code.Text:=Trim(Self.ClientDataSet1.fieldbyname('BPCode').AsString);
|
||
FSKID:=Trim(Self.ClientDataSet1.fieldbyname('BPCode').AsString);
|
||
end
|
||
else
|
||
begin
|
||
Code.Text:=Trim(Self.ClientDataSet1.fieldbyname('SKID').AsString);
|
||
FSKID:=Trim(Self.ClientDataSet1.fieldbyname('SKID').AsString);
|
||
end;
|
||
if ShowModal=1 then
|
||
begin
|
||
if Self.ClientDataSet1.fieldbyname('SKID').AsString='' then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''+Trim(Self.ClientDataSet1.fieldbyname('BPCode').AsString)+''' ');
|
||
sql.Add('where BPID='''+Trim(ClientDataSet1.fieldbyname('BPID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
with Self.ClientDataSet1 do
|
||
begin
|
||
edit;
|
||
FieldByName('SKID').Value:=Trim(fieldbyname('BPCode').AsString);
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''+Trim(Self.ClientDataSet1.fieldbyname('SKID').AsString)+''' ');
|
||
sql.Add('where BPID='''+Trim(ClientDataSet1.fieldbyname('SKID').AsString)+'''');
|
||
execsql;
|
||
end;
|
||
with Self.ClientDataSet1 do
|
||
begin
|
||
edit;
|
||
FieldByName('SKID').Value:=Trim(fieldbyname('SKID').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
finally;
|
||
frmFileUp_PB.Free;
|
||
end;
|
||
initimage();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.THBClick(Sender: TObject);
|
||
var SSKID:string;
|
||
begin
|
||
if ClientDataSet1.IsEmpty then Exit;
|
||
if ClientDataSet1.Locate('Ssel',true,[])=false then
|
||
begin
|
||
application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD>','<27><>ʾ',1)=2 then exit;
|
||
ClientDataSet1.DisableControls;
|
||
with ClientDataSet1 do
|
||
begin
|
||
First;
|
||
while not eof do
|
||
begin
|
||
if FieldByName('Ssel').AsBoolean=true then
|
||
begin
|
||
if fieldbyname('SKID').AsString<>'' then
|
||
begin
|
||
if SSKID='' then
|
||
begin
|
||
SSKID:=Trim(fieldbyname('SKID').AsString);
|
||
end
|
||
else
|
||
begin
|
||
if SSKID<>Trim(fieldbyname('SKID').AsString) then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>ܺϲ<DCBA>','<27><>ʾ');
|
||
ClientDataSet1.EnableControls;
|
||
Exit;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
ClientDataSet1.EnableControls;
|
||
if SSKID='' then
|
||
begin
|
||
application.MessageBox('<27><>ѡ<EFBFBD><D1A1>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>Ϊ<EFBFBD>յ<EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
|
||
Exit;
|
||
end;
|
||
ClientDataSet1.DisableControls;
|
||
with ClientDataSet1 do
|
||
begin
|
||
First;
|
||
while not eof do
|
||
begin
|
||
if FieldByName('Ssel').AsBoolean=true then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''+trim(SSKID)+''' ');
|
||
sql.Add('where BPID='''+trim(ClientDataSet1.fieldbyname('BPID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
edit;
|
||
FieldByName('SKID').Value:=Trim(SSKID);
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
ClientDataSet1.EnableControls;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.TCFClick(Sender: TObject);
|
||
begin
|
||
if ClientDataSet1.IsEmpty then Exit;
|
||
if ClientDataSet1.Locate('Ssel',true,[])=false then
|
||
begin
|
||
application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',1)=2 then exit;
|
||
ClientDataSet1.DisableControls;
|
||
with ClientDataSet1 do
|
||
begin
|
||
First;
|
||
while not eof do
|
||
begin
|
||
if FieldByName('Ssel').AsBoolean=true then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update BP_ZDY_M set SKID='''' ');
|
||
sql.Add('where BPID='''+trim(ClientDataSet1.fieldbyname('BPID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
edit;
|
||
FieldByName('SKID').Value:='';
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
ClientDataSet1.EnableControls;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.TXZColClick(Sender: TObject);
|
||
var i,j,x:Integer;
|
||
begin
|
||
j:=0;
|
||
if ClientDataSet1.IsEmpty then exit;
|
||
if Trim(FBPIDSel)='' then
|
||
begin
|
||
Application.MessageBox('û<>е<EFBFBD><D0B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>е<EFBFBD><D0B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
frmBPZDY_Panel_M:=TfrmBPZDY_Panel_M.create(self);
|
||
with frmBPZDY_Panel_M do
|
||
begin
|
||
FColorFlag:=Trim(FBPIDSH);
|
||
if ShowModal=1 then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.*');
|
||
SQL.Add(',MXGS=(select count(C.PTID) from BP_ColZDY_M C where C.SKID=A.SKID and isnull(C.SKID,'''')<>'''') ');
|
||
sql.Add(' from BP_ColZDY_M A');
|
||
sql.Add(' inner join RT_PTColor_M B on A.PTID=B.PTID');
|
||
sql.Add(' where A.SKID='''+Trim(FBPIDSH)+'''');
|
||
sql.Add(' and isnull(A.SKID,'''')<>'''' ');
|
||
sql.Add(' order by cast(A.ColNo as int)');
|
||
Open;
|
||
end;
|
||
mz:=ceil(ADOQueryTemp.fieldbyname('MXGS').AsInteger/50);
|
||
label554.Caption:=inttostr(my)+'/'+inttostr(mz);
|
||
SCreateCDS20(ADOQueryTemp,OrdBP_SHWH);
|
||
SInitCDSData20(ADOQueryTemp,OrdBP_SHWH);
|
||
with Self.ScrollBox2 do
|
||
begin
|
||
for i:=0 to Self.ScrollBox2.ControlCount-1 do
|
||
begin
|
||
if Controls[i] is TPanel then
|
||
begin
|
||
if TPanel(Controls[i]).Ctl3D=False then
|
||
begin
|
||
TPanel(Controls[i]).Visible:=false;
|
||
Self.ScrollBox2.Refresh;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
Self.ScrollBox2.Refresh;
|
||
with frmBPZDY_Panel_M.Ord_SH do
|
||
begin
|
||
first;
|
||
while not Eof do
|
||
begin
|
||
if Self.OrdBP_SHWH.Locate('PTID',Trim(frmBPZDY_Panel_M.Ord_SH.fieldbyname('PTID').AsString),[])=False then
|
||
begin
|
||
with Self.OrdBP_SHWH do
|
||
begin
|
||
Append;
|
||
FieldByName('PTID').Value:=frmBPZDY_Panel_M.Ord_SH.fieldbyname('PTID').Value;
|
||
FieldByName('ColNameEng').Value:=frmBPZDY_Panel_M.Ord_SH.fieldbyname('ColNameEng').Value;
|
||
FieldByName('ColName').Value:=frmBPZDY_Panel_M.Ord_SH.fieldbyname('ColName').Value;
|
||
FieldByName('ColNameKH').Value:=frmBPZDY_Panel_M.Ord_SH.fieldbyname('ColNameKH').Value;
|
||
FieldByName('ColDaiMa').Value:=frmBPZDY_Panel_M.Ord_SH.fieldbyname('ColDaiMa').Value;
|
||
FieldByName('ColNo').Value:=frmBPZDY_Panel_M.Ord_SH.fieldbyname('ColNo').Value;
|
||
Post;
|
||
end;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
Self.InitSHByOrdBP_SH();
|
||
self.Formid:='0';
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.N1Click(Sender: TObject);
|
||
var
|
||
i:Integer;
|
||
begin
|
||
//ShowMessage(FPT);
|
||
FrmBPZdy_YT:=TFrmBPZdy_YT.create(Self);
|
||
with FrmBPZdy_YT do
|
||
begin
|
||
Panel1.Color:=StrToInt('$'+OrdBP_SHWH.fieldbyname('ColDaiMa').Value);
|
||
Label1.Caption:=Trim(OrdBP_SHWH.fieldbyname('PTID').AsString);
|
||
Label2.Caption:=Trim(OrdBP_SHWH.fieldbyname('ColNameEng').AsString);
|
||
Label3.Caption:=Trim(OrdBP_SHWH.fieldbyname('ColName').AsString);
|
||
Label4.Caption:=Trim(OrdBP_SHWH.fieldbyname('ColNameKH').AsString);
|
||
Label5.Visible:=true;
|
||
Label5.Caption:=Trim(OrdBP_SHWH.fieldbyname('ColNo').AsString);
|
||
if showmodal=1 then
|
||
begin
|
||
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.Panel101MouseDown(Sender: TObject;
|
||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
var
|
||
i:Integer;
|
||
begin
|
||
OrdBP_SHWH.Locate('PTID',TPanel(Sender).Hint,[]);
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.TDYClick(Sender: TObject);
|
||
var i,j,x:Integer;
|
||
begin
|
||
i:=0;
|
||
j:=0;
|
||
frmBPZDY_PanelCX:=TfrmBPZDY_PanelCX.create(self);
|
||
with frmBPZDY_PanelCX do
|
||
begin
|
||
FColorFlag:=Trim(FBPIDSH);
|
||
FBPID:=Trim(ClientDataSet1.fieldbyname('BPID').AsString);
|
||
if ShowModal=1 then
|
||
begin
|
||
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.N2Click(Sender: TObject);
|
||
begin
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete BP_ColZDY_M where PTID='''+Trim(OrdBP_SHWH.fieldbyname('PTID').AsString)+'''');
|
||
sql.Add(' and isnull(SKID,'''')='''+Trim(FBPIDSH)+'''');
|
||
ExecSQL;
|
||
end;
|
||
initimageSH();
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.Edit1Exit(Sender: TObject);
|
||
var
|
||
FPT,FTEX:string;
|
||
begin
|
||
FPT:=Trim(TEdit(Sender).Hint);
|
||
FTEX:=Trim(TEdit(Sender).Text);
|
||
if FTEX<>'0' then
|
||
begin
|
||
if StrToIntDef(FTEX,0)=0 then
|
||
begin
|
||
application.MessageBox('ɫ<>ű<EFBFBD><C5B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ');
|
||
FTEX:='';
|
||
TEdit(Sender).Text:='';
|
||
exit;
|
||
end;
|
||
end;
|
||
//ShowMessage(FPT);
|
||
with OrdBP_SHWH do
|
||
begin
|
||
if Locate('PTID',FPT,[]) then
|
||
begin
|
||
Edit;
|
||
FieldByName('ColNo').value:=Trim(FTEX);
|
||
Post;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.Edit2Exit(Sender: TObject);
|
||
var FPT,FTEX:string;
|
||
begin
|
||
FPT:=Trim(TEdit(Sender).Hint);
|
||
FTEX:=Trim(TEdit(Sender).Text);
|
||
with OrdBP_SHWH do
|
||
begin
|
||
if Locate('PTID',FPT,[]) then
|
||
begin
|
||
Edit;
|
||
FieldByName('ColNameKH').value:=Trim(FTEX);
|
||
Post;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmBPZDY_LRSHK_M:=nil;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.XYClick(Sender: TObject);
|
||
var x:integer;
|
||
begin
|
||
if my=mz then exit;
|
||
XY.Enabled:=False;
|
||
my:=my+1;
|
||
if my>0 then
|
||
begin
|
||
SY.Enabled:=True;
|
||
end
|
||
else
|
||
begin
|
||
SY.Enabled:=False;
|
||
end;
|
||
label554.Caption:=inttostr(my)+'/'+inttostr(mz);
|
||
InitSHByOrdBP_SH();
|
||
XY.Enabled:=true;
|
||
end;
|
||
|
||
procedure TfrmBPZDY_LRSHK_M.SYClick(Sender: TObject);
|
||
begin
|
||
if my=1 then exit;
|
||
SY.Enabled:=False;
|
||
my:=my-1;
|
||
if my<mz then
|
||
begin
|
||
XY.Enabled:=True;
|
||
end
|
||
else
|
||
begin
|
||
XY.Enabled:=False;
|
||
end;
|
||
label554.Caption:=inttostr(my)+'/'+inttostr(mz);
|
||
InitSHByOrdBP_SH();
|
||
SY.Enabled:=true;
|
||
end;
|
||
|
||
end.
|