|
|
unit u_info_plan_manage;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, dxExEdtr, dxDBGrid, dxTL, dxDBCtrl, dxCntner, StdCtrls,
|
|
|
ComCtrls, DBCtrls, Mask, bsSkinCtrls, DB, ADODB, bsdbctrls, dxDBTLCl,
|
|
|
dxGrClms, ExtCtrls, wwmonthcalendar, wwdbedit, Wwdotdot, Wwdbcomb,DateUtils,
|
|
|
RxLookup, wwdbdatetimepicker, bsSkinTabs;
|
|
|
|
|
|
type
|
|
|
Tfrm_info_plan_manage = class(TForm)
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
Label1: TLabel;
|
|
|
Label2: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label5: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
Notebook1: TbsSkinNotebook;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
Label6: TLabel;
|
|
|
Label7: TLabel;
|
|
|
Label8: TLabel;
|
|
|
Label17: TLabel;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBEdit13: TDBEdit;
|
|
|
DBEdit14: TDBEdit;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinGroupBox2: TbsSkinGroupBox;
|
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
Label9: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label11: TLabel;
|
|
|
Label16: TLabel;
|
|
|
DBEdit7: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit12: TDBEdit;
|
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
wwDBMonthCalendar2: TwwDBMonthCalendar;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
Label12: TLabel;
|
|
|
Label13: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label15: TLabel;
|
|
|
DBEdit9: TDBEdit;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
DBEdit10: TDBEdit;
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
DBEdit11: TDBEdit;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridColumn;
|
|
|
dxDBGrid1Column9: TdxDBGridColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridColumn;
|
|
|
Panel1: TPanel;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
t_info_plan: TADOQuery;
|
|
|
t_info_plan1: TDataSource;
|
|
|
t_info_plan_detail1: TDataSource;
|
|
|
t_info_plan_detail: TADOQuery;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinPanel6: TbsSkinPanel;
|
|
|
t_crm_client_link: TADOQuery;
|
|
|
t_crm_client_link1: TDataSource;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
DBMemo1: TDBMemo;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
DBMemo4: TDBMemo;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
bsSkinPanel7: TbsSkinPanel;
|
|
|
Label55: TLabel;
|
|
|
Label18: TLabel;
|
|
|
Label57: TLabel;
|
|
|
Label58: TLabel;
|
|
|
Label54: TLabel;
|
|
|
Label56: TLabel;
|
|
|
Label60: TLabel;
|
|
|
Label61: TLabel;
|
|
|
DBEdit49: TDBEdit;
|
|
|
wwDBDateTimePicker5: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
DBEdit46: TDBEdit;
|
|
|
wwDBComboBox4: TwwDBComboBox;
|
|
|
DBEdit47: TDBEdit;
|
|
|
RxDBLookupCombo8: TRxDBLookupCombo;
|
|
|
wwDBComboBox5: TwwDBComboBox;
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
DBMemo5: TDBMemo;
|
|
|
bsSkinPanel8: TbsSkinPanel;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
DBMemo2: TDBMemo;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
DBMemo6: TDBMemo;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
bsSkinPanel9: TbsSkinPanel;
|
|
|
Label19: TLabel;
|
|
|
Label20: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label25: TLabel;
|
|
|
Label26: TLabel;
|
|
|
DBEdit15: TDBEdit;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
|
DBEdit16: TDBEdit;
|
|
|
wwDBComboBox6: TwwDBComboBox;
|
|
|
DBEdit17: TDBEdit;
|
|
|
RxDBLookupCombo3: TRxDBLookupCombo;
|
|
|
wwDBComboBox7: TwwDBComboBox;
|
|
|
bsSkinGroupBox3: TbsSkinGroupBox;
|
|
|
DBMemo7: TDBMemo;
|
|
|
bsSkinPanel10: TbsSkinPanel;
|
|
|
bsSkinPageControl3: TbsSkinPageControl;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
DBMemo3: TDBMemo;
|
|
|
bsSkinTabSheet8: TbsSkinTabSheet;
|
|
|
DBMemo8: TDBMemo;
|
|
|
bsSkinTabSheet9: TbsSkinTabSheet;
|
|
|
bsSkinPanel11: TbsSkinPanel;
|
|
|
Label27: TLabel;
|
|
|
Label28: TLabel;
|
|
|
Label29: TLabel;
|
|
|
Label30: TLabel;
|
|
|
Label31: TLabel;
|
|
|
Label32: TLabel;
|
|
|
Label33: TLabel;
|
|
|
Label34: TLabel;
|
|
|
DBEdit18: TDBEdit;
|
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
|
RxDBLookupCombo4: TRxDBLookupCombo;
|
|
|
DBEdit19: TDBEdit;
|
|
|
wwDBComboBox8: TwwDBComboBox;
|
|
|
DBEdit20: TDBEdit;
|
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
|
wwDBComboBox9: TwwDBComboBox;
|
|
|
bsSkinGroupBox4: TbsSkinGroupBox;
|
|
|
DBMemo9: TDBMemo;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure Panel1Resize(Sender: TObject);
|
|
|
procedure t_info_planAfterScroll(DataSet: TDataSet);
|
|
|
procedure bsSkinCheckRadioBox1Click(Sender: TObject);
|
|
|
procedure bsSkinCheckRadioBox2Click(Sender: TObject);
|
|
|
procedure bsSkinCheckRadioBox3Click(Sender: TObject);
|
|
|
procedure bsSkinCheckRadioBox4Click(Sender: TObject);
|
|
|
procedure bsSkinCheckRadioBox5Click(Sender: TObject);
|
|
|
procedure bsSkinCheckRadioBox6Click(Sender: TObject);
|
|
|
procedure bsSkinCheckRadioBox7Click(Sender: TObject);
|
|
|
procedure wwDBMonthCalendar2Change(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure dxDBGrid1Column1CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_info_plan_manage: Tfrm_info_plan_manage;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_info_plan_query, my_sys_function;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
t_info_plan.Close;
|
|
|
t_info_plan.sql.clear;
|
|
|
t_info_plan.sql.add('select * from t_info_plan where '
|
|
|
+open_data('9001','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')
|
|
|
+' and <20>ƻ<EFBFBD>״̬ in ('+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+')'
|
|
|
+' order by ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
t_info_plan.open;
|
|
|
t_info_plan_detail.open;
|
|
|
t_crm_client_link.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
frm_info_plan_manage.Hide;
|
|
|
frm_info_plan_manage.ManualFloat(frm_info_plan_manage.BoundsRect );
|
|
|
frm_main.freeTabs('frm_info_plan_manage');
|
|
|
action:=cafree;
|
|
|
frm_info_plan_manage:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_info_plan_query:=tfrm_info_plan_query.Create (self);
|
|
|
frm_info_plan_query.Hint:='1';
|
|
|
frm_info_plan_query.ShowModal;
|
|
|
finally
|
|
|
frm_info_plan_query.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.Panel1Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(panel1.Width/8);
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton9.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton10.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.t_info_planAfterScroll(DataSet: TDataSet);
|
|
|
begin
|
|
|
if t_info_plan['<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>']='' then
|
|
|
Notebook1.Visible:=false
|
|
|
else
|
|
|
Notebook1.Visible:=true;
|
|
|
if t_info_plan['<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>']='<27><><EFBFBD>ƻ<EFBFBD>' then
|
|
|
begin
|
|
|
Notebook1.PageIndex:=0;
|
|
|
end;
|
|
|
if t_info_plan['<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>']='<27>ܼƻ<DCBC>' then
|
|
|
begin
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinCheckRadioBox1.Checked:=true;
|
|
|
end;
|
|
|
if t_info_plan['<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>']='<27>¼ƻ<C2BC>' then
|
|
|
begin
|
|
|
Notebook1.PageIndex:=2;
|
|
|
wwDBMonthCalendar2.Date:=
|
|
|
strtodate(t_info_plan.fieldbyname('<27><>').asstring+'-'
|
|
|
+copy(t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring,1,
|
|
|
pos('<27><>',t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring)-1)+'-'+'01');
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinCheckRadioBox1Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_info_plan_detail.IsEmpty then
|
|
|
exit;
|
|
|
t_info_plan_detail.First;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinCheckRadioBox2Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_info_plan_detail.IsEmpty then
|
|
|
exit;
|
|
|
t_info_plan_detail.First;
|
|
|
t_info_plan_detail.Next;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinCheckRadioBox3Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_info_plan_detail.IsEmpty then
|
|
|
exit;
|
|
|
t_info_plan_detail.First;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinCheckRadioBox4Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_info_plan_detail.IsEmpty then
|
|
|
exit;
|
|
|
t_info_plan_detail.First;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinCheckRadioBox5Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_info_plan_detail.IsEmpty then
|
|
|
exit;
|
|
|
t_info_plan_detail.First;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinCheckRadioBox6Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_info_plan_detail.IsEmpty then
|
|
|
exit;
|
|
|
t_info_plan_detail.First;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
t_info_plan_detail.Next;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinCheckRadioBox7Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_info_plan_detail.IsEmpty then
|
|
|
exit;
|
|
|
t_info_plan_detail.last;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.wwDBMonthCalendar2Change(Sender: TObject);
|
|
|
var
|
|
|
i,j:integer;
|
|
|
begin
|
|
|
if t_info_plan_detail.IsEmpty then
|
|
|
exit;
|
|
|
if (round(yearof(wwDBMonthCalendar2.date))<>strtoint(t_info_plan.FieldByName('<27><>').AsString))
|
|
|
or (round(monthof(wwDBMonthCalendar2.date))<>strtoint(copy(t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring,1,
|
|
|
pos('<27><>',t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring)-1))) then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>Χ!!');
|
|
|
wwDBMonthCalendar2.Date:=
|
|
|
strtodate(t_info_plan.fieldbyname('<27><>').asstring+'-'
|
|
|
+copy(t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring,1,
|
|
|
pos('<27><>',t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring)-1)+'-'+'01');
|
|
|
exit;
|
|
|
end;
|
|
|
t_info_plan_detail.First;
|
|
|
j:=round(wwDBMonthCalendar2.Date-strtodate(t_info_plan.fieldbyname('<27><>').asstring+'-'
|
|
|
+copy(t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring,1,
|
|
|
pos('<27><>',t_info_plan.fieldbyname('<27>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD>').asstring)-1)+'-'+'01'));
|
|
|
if j>1 then
|
|
|
begin
|
|
|
for i:=0 to j-2 do
|
|
|
begin
|
|
|
t_info_plan_detail.Next;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
if (not if_open('019')) then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_info_plan.IsEmpty then
|
|
|
exit;
|
|
|
if t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
showmessage('<27>ƻ<EFBFBD><C6BB><EFBFBD>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!!');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
t_info_plan.Edit;
|
|
|
t_info_plan['<27>ƻ<EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
t_info_plan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_info_plan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_info_plan.post;
|
|
|
finally
|
|
|
;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinButton11Click(Sender: TObject);
|
|
|
begin
|
|
|
if (not if_open('213')) then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_info_plan.IsEmpty then
|
|
|
exit;
|
|
|
if (t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring<>'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>')
|
|
|
and(t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring<>'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') then
|
|
|
begin
|
|
|
showmessage('<27>ƻ<EFBFBD><C6BB><EFBFBD>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!!');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
t_info_plan.Edit;
|
|
|
if (t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>') then
|
|
|
begin
|
|
|
t_info_plan['<27>ƻ<EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
t_info_plan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_info_plan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
t_info_plan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_info_plan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
end;
|
|
|
if (t_info_plan.FieldByName('<27>ƻ<EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>') then
|
|
|
begin
|
|
|
t_info_plan['<27>ƻ<EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
|
|
|
t_info_plan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
|
|
|
t_info_plan['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
|
|
|
end;
|
|
|
t_info_plan.post;
|
|
|
finally
|
|
|
;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
t_info_plan.close;
|
|
|
t_info_plan.sql.clear;
|
|
|
t_info_plan.SQL.add('select * from t_info_plan where '
|
|
|
+open_data('9001','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')+
|
|
|
' and <20>ƻ<EFBFBD>״̬='+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''
|
|
|
+' order by ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
t_info_plan.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
t_info_plan.close;
|
|
|
t_info_plan.sql.clear;
|
|
|
t_info_plan.SQL.add('select * from t_info_plan where '
|
|
|
+open_data('9001','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no')+
|
|
|
' and <20>ƻ<EFBFBD>״̬ in('+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''
|
|
|
+','+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+')'+' order by ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
t_info_plan.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_info_plan_manage.dxDBGrid1Column1CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if ANode.Strings[dxDBGrid1Column1.Index]='¼<><C2BC>״̬' then
|
|
|
AColor:=clWhite;
|
|
|
if ANode.Strings[dxDBGrid1Column1.Index]='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
|
|
|
AColor:=$0080FFFF;
|
|
|
if ANode.Strings[dxDBGrid1Column1.Index]='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
|
|
|
AColor:=$0000FF80;
|
|
|
if ANode.Strings[dxDBGrid1Column1.Index]='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
|
|
|
AColor:=clAqua;
|
|
|
AFont.Color:=clblack;
|
|
|
end;
|
|
|
|
|
|
end.
|