|
|
|
|
|
unit u_sys_noset;
|
|
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
|
|
|
Dialogs, bsSkinCtrls, BusinessSkinForm, DB, ADODB, StdCtrls, Mask,
|
|
|
|
|
|
DBCtrls, wwdbdatetimepicker, bsdbctrls, ComCtrls, bsSkinTabs;
|
|
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
|
Tfrm_sys_noset = class(TForm)
|
|
|
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
|
|
|
Label1: TLabel;
|
|
|
|
|
|
Label2: TLabel;
|
|
|
|
|
|
Label3: TLabel;
|
|
|
|
|
|
Label4: TLabel;
|
|
|
|
|
|
Label10: TLabel;
|
|
|
|
|
|
bsSkinSpeedButton1: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton2: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton3: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton4: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton5: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton6: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton7: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton8: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton9: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton10: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton11: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton12: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton13: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton14: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton15: TbsSkinSpeedButton;
|
|
|
|
|
|
DBEdit1: TDBEdit;
|
|
|
|
|
|
DBEdit2: TDBEdit;
|
|
|
|
|
|
DBEdit3: TDBEdit;
|
|
|
|
|
|
DBEdit4: TDBEdit;
|
|
|
|
|
|
DBEdit6: TDBEdit;
|
|
|
|
|
|
bsSkinGroupBox2: TbsSkinGroupBox;
|
|
|
|
|
|
Label7: TLabel;
|
|
|
|
|
|
Label8: TLabel;
|
|
|
|
|
|
Label9: TLabel;
|
|
|
|
|
|
DBComboBox2: TDBComboBox;
|
|
|
|
|
|
DBComboBox3: TDBComboBox;
|
|
|
|
|
|
DBComboBox4: TDBComboBox;
|
|
|
|
|
|
bsSkinGroupBox3: TbsSkinGroupBox;
|
|
|
|
|
|
Label5: TLabel;
|
|
|
|
|
|
Label6: TLabel;
|
|
|
|
|
|
bsSkinSpeedButton17: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton16: TbsSkinSpeedButton;
|
|
|
|
|
|
DBComboBox1: TDBComboBox;
|
|
|
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
|
|
|
DBEdit5: TDBEdit;
|
|
|
|
|
|
bsSkinGroupBox4: TbsSkinGroupBox;
|
|
|
|
|
|
Label11: TLabel;
|
|
|
|
|
|
Label12: TLabel;
|
|
|
|
|
|
Label13: TLabel;
|
|
|
|
|
|
Label14: TLabel;
|
|
|
|
|
|
Label15: TLabel;
|
|
|
|
|
|
bsSkinSpeedButton18: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton19: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton20: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton21: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton22: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton23: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton24: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton25: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton26: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton27: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton28: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton29: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton30: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton31: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton32: TbsSkinSpeedButton;
|
|
|
|
|
|
DBEdit7: TDBEdit;
|
|
|
|
|
|
DBEdit8: TDBEdit;
|
|
|
|
|
|
DBEdit9: TDBEdit;
|
|
|
|
|
|
DBEdit10: TDBEdit;
|
|
|
|
|
|
DBEdit11: TDBEdit;
|
|
|
|
|
|
bsSkinGroupBox5: TbsSkinGroupBox;
|
|
|
|
|
|
Label16: TLabel;
|
|
|
|
|
|
Label17: TLabel;
|
|
|
|
|
|
Label18: TLabel;
|
|
|
|
|
|
DBComboBox5: TDBComboBox;
|
|
|
|
|
|
DBComboBox6: TDBComboBox;
|
|
|
|
|
|
DBComboBox7: TDBComboBox;
|
|
|
|
|
|
bsSkinGroupBox6: TbsSkinGroupBox;
|
|
|
|
|
|
Label19: TLabel;
|
|
|
|
|
|
Label20: TLabel;
|
|
|
|
|
|
bsSkinSpeedButton33: TbsSkinSpeedButton;
|
|
|
|
|
|
bsSkinSpeedButton34: TbsSkinSpeedButton;
|
|
|
|
|
|
DBComboBox8: TDBComboBox;
|
|
|
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
|
|
|
bsSkinDBCheckRadioBox4: TbsSkinDBCheckRadioBox;
|
|
|
|
|
|
DBEdit12: TDBEdit;
|
|
|
|
|
|
bsSkinGroupBox7: TbsSkinGroupBox;
|
|
|
|
|
|
ComboBoxNoType: TComboBox;
|
|
|
|
|
|
Label21: TLabel;
|
|
|
|
|
|
dsrNoSet: TDataSource;
|
|
|
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton1Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton4Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton7Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton10Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton13Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton2Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton3Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton5Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton6Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton8Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton9Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton11Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton12Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton14Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton15Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton17Click(Sender: TObject);
|
|
|
|
|
|
procedure bsSkinSpeedButton16Click(Sender: TObject);
|
|
|
|
|
|
procedure ComboBoxNoTypeChange(Sender: TObject);
|
|
|
|
|
|
private
|
|
|
|
|
|
{ Private declarations }
|
|
|
|
|
|
public
|
|
|
|
|
|
{ Public declarations }
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
|
frm_sys_noset: Tfrm_sys_noset;
|
|
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
|
|
uses u_main, u_data_share, u_sys_wtno, u_sys_wtno_empty;
|
|
|
|
|
|
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinButton2Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
if dsrNoSet.DataSet.State in [dsedit,dsinsert] then dsrNoSet.DataSet.Cancel;
|
|
|
|
|
|
close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinButton1Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
if dsrNoSet.DataSet.State in [dsedit,dsinsert] then dsrNoSet.DataSet.post;
|
|
|
|
|
|
close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton1Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString)+'<SUB>';
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton4Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString)+'<SUB>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton7Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString:=trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString)+'<SUB>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton10Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString)+'<SUB>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton13Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>ܳ<EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>ܳ<EFBFBD>').AsString)+'<SUB>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton2Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString)+'<DEPT>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton3Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString)+'<EMP>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton5Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString)+'<DEPT>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton6Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString)+'<EMP>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton8Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString:=trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString)+'<DEPT>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton9Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString:=trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString)+'<EMP>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton11Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString)+'<DEPT>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton12Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>').AsString)+'<EMP>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton14Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>ܳ<EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>ܳ<EFBFBD>').AsString)+'<DEPT>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton15Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
dsrNoSet.DataSet.Edit;
|
|
|
|
|
|
dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>ܳ<EFBFBD>').AsString:=Trim(dsrNoSet.DataSet.fieldbyname('<27><><EFBFBD>ܳ<EFBFBD>').AsString)+'<EMP>';
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton17Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
frm_sys_wtno:=Tfrm_sys_wtno.Create(self);
|
|
|
|
|
|
try
|
|
|
|
|
|
frm_sys_wtno.ShowModal;
|
|
|
|
|
|
finally
|
|
|
|
|
|
FreeAndNil(frm_sys_wtno);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.bsSkinSpeedButton16Click(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
frm_sys_wtno_empty:=Tfrm_sys_wtno_empty.Create(self);
|
|
|
|
|
|
try
|
|
|
|
|
|
frm_sys_wtno_empty.ShowModal;
|
|
|
|
|
|
finally
|
|
|
|
|
|
FreeAndNil(frm_sys_wtno_empty);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_sys_noset.ComboBoxNoTypeChange(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
if ComboBoxNoType.ItemIndex=0 then begin
|
|
|
|
|
|
dsrNoSet.DataSet:=frm_data_share.t_sys_noset;
|
|
|
|
|
|
DBComboBox4.Items.Clear;
|
|
|
|
|
|
DBComboBox4.Items.Add('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
DBComboBox4.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>');
|
|
|
|
|
|
end else if ComboBoxNoType.ItemIndex=1 then begin
|
|
|
|
|
|
dsrNoSet.DataSet:=frm_data_share.t_AgentDc_no;
|
|
|
|
|
|
DBComboBox4.Items.Clear;
|
|
|
|
|
|
DBComboBox4.Items.Add('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
DBComboBox4.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
