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.

274 lines
7.1 KiB
Plaintext

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_rp_dui_format;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, bsSkinCtrls, BusinessSkinForm, dxExEdtr, dxCntner,
dxTL, dxDBCtrl, dxDBGrid, bsSkinBoxCtrls, StdCtrls, DBCtrls;
type
Tfrm_rp_dui_format = class(TForm)
t_ch_dui_format: TADOQuery;
t_ch_dui_format1: TDataSource;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinPanel1: TbsSkinPanel;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
bsSkinPanel5: TbsSkinPanel;
bsSkinPanel6: TbsSkinPanel;
bsSkinButton6: TbsSkinButton;
bsSkinButton10: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinPanel7: TbsSkinPanel;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinListBox1: TbsSkinListBox;
bsSkinGroupBox2: TbsSkinGroupBox;
dxDBGrid3: TdxDBGrid;
dxDBGrid3Column1: TdxDBGridMaskColumn;
bsSkinButton5: TbsSkinButton;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
bsSkinButton7: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
DBListBox1: TListBox;
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure t_ch_dui_formatAfterInsert(DataSet: TDataSet);
procedure t_ch_dui_formatBeforePost(DataSet: TDataSet);
procedure t_ch_dui_formatDeleteError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
procedure t_ch_dui_format_detailBeforeInsert(DataSet: TDataSet);
procedure bsSkinButton5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure t_ch_dui_formatAfterScroll(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_rp_dui_format: Tfrm_rp_dui_format;
dui_format_type:integer;
implementation
uses u_main, u_data_share, my_sys_function;
{$R *.dfm}
procedure Tfrm_rp_dui_format.bsSkinButton1Click(Sender: TObject);
begin
t_ch_dui_format.Insert;
end;
procedure Tfrm_rp_dui_format.bsSkinButton2Click(Sender: TObject);
begin
table_post(t_ch_dui_format);
end;
procedure Tfrm_rp_dui_format.bsSkinButton4Click(Sender: TObject);
begin
table_delete(t_ch_dui_format);
end;
procedure Tfrm_rp_dui_format.bsSkinButton3Click(Sender: TObject);
begin
table_cancel(t_ch_dui_format);
end;
procedure Tfrm_rp_dui_format.t_ch_dui_formatAfterInsert(DataSet: TDataSet);
begin
t_ch_dui_format['<27><><EFBFBD><EFBFBD>']:=dui_format_type;
end;
procedure Tfrm_rp_dui_format.t_ch_dui_formatBeforePost(DataSet: TDataSet);
begin
t_ch_dui_format['<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>']:=DBListBox1.Items.Text;
table_before_post(t_ch_dui_format,'ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
table_before_post(t_ch_dui_format,'<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_rp_dui_format.t_ch_dui_formatDeleteError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
showmessage('<27>ʵ<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ѿ<EFBFBD>ʹ<EFBFBD>ã<EFBFBD><C3A3><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
abort;
end;
procedure Tfrm_rp_dui_format.t_ch_dui_format_detailBeforeInsert(
DataSet: TDataSet);
begin
table_post(t_ch_dui_format);
end;
procedure Tfrm_rp_dui_format.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_rp_dui_format.FormShow(Sender: TObject);
var
aQuery:TADOQuery;
begin
Memo1.Lines.Clear;
aQuery:=CreateAdoQuery;
with aQuery do
begin
Close;
SQL.Clear;
SQL.Add('select * from INFORMATION_SCHEMA.COLUMNS where TABLE_NAME=''t_op_seae''');
Open;
end;
aQuery.First;
while not aQuery.Eof do
begin
Memo1.Lines.Add(aQuery.fieldbyname('COLUMN_NAME').AsString);
aQuery.Next;
end;
FreeAndNil(aQuery);
t_ch_dui_format.Parameters[0].value:=dui_format_type;
t_ch_dui_format.open;
case dui_format_type of
1,2,3,4:
begin
frm_data_share.t_code_fee.Requery();
frm_data_share.t_code_fee.Filtered:=false;
frm_data_share.t_code_fee.Filter:='<27><><EFBFBD><EFBFBD>=1';
frm_data_share.t_code_fee.Filtered:=true;
end;
5,6,7,8:
begin
frm_data_share.t_code_fee.Requery();
frm_data_share.t_code_fee.Filtered:=false;
frm_data_share.t_code_fee.Filter:='<27><><EFBFBD><EFBFBD>=1';
frm_data_share.t_code_fee.Filtered:=true;
end;
end;
case dui_format_type of
1,2:
begin
bsSkinListBox1.Items.Text:=memo1.text;
end;
3,4:
begin
bsSkinListBox1.Items.Text:=memo2.text;
end;
5,6:
begin
bsSkinListBox1.Items.Text:=memo3.text;
end;
7,8:
begin
bsSkinListBox1.Items.Text:=memo4.text;
end;
end;
end;
procedure Tfrm_rp_dui_format.bsSkinButton6Click(Sender: TObject);
var
if_find:boolean;
i:integer;
begin
if t_ch_dui_format.IsEmpty then
exit;
if bsSkinListBox1.ItemIndex=-1 then
exit;
for i:=0 to DBListBox1.Items.Count-1 do
begin
if copy(DBListBox1.Items[i],2,length(DBListBox1.Items[i])-1)=bsSkinListBox1.Items[bsSkinListBox1.ItemIndex] then
exit;
end;
t_ch_dui_format.edit;
DBListBox1.Items.Add('0'+bsSkinListBox1.Items[bsSkinListBox1.ItemIndex]);
t_ch_dui_format.post;
end;
procedure Tfrm_rp_dui_format.bsSkinButton10Click(Sender: TObject);
begin
if DBListBox1.ItemIndex=-1 then
exit;
t_ch_dui_format.edit;
DBListBox1.Items.Delete(DBListBox1.ItemIndex);
t_ch_dui_format.post;
end;
procedure Tfrm_rp_dui_format.bsSkinButton11Click(Sender: TObject);
var
if_find:boolean;
i:integer;
begin
if t_ch_dui_format.IsEmpty then
exit;
if bsSkinListBox1.ItemIndex=-1 then
exit;
for i:=0 to DBListBox1.Items.Count-1 do
begin
if copy(DBListBox1.Items[i],2,length(DBListBox1.Items[i])-1)=frm_data_share.t_code_fee.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring then
exit;
end;
t_ch_dui_format.edit;
DBListBox1.Items.Add('1'+frm_data_share.t_code_fee.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
t_ch_dui_format.post;
end;
procedure Tfrm_rp_dui_format.bsSkinButton7Click(Sender: TObject);
var
i:integer;
begin
if t_ch_dui_format.IsEmpty then
exit;
if DBListBox1.ItemIndex=-1 then
exit;
if DBListBox1.ItemIndex=0 then
exit;
t_ch_dui_format.edit;
i:=DBListBox1.ItemIndex-1;
DBListBox1.Items.Move(DBListBox1.ItemIndex,DBListBox1.ItemIndex-1);
t_ch_dui_format.post;
DBListBox1.ItemIndex:=i;
end;
procedure Tfrm_rp_dui_format.bsSkinButton8Click(Sender: TObject);
var
i:integer;
begin
if t_ch_dui_format.IsEmpty then
exit;
if DBListBox1.ItemIndex=-1 then
exit;
if DBListBox1.ItemIndex=DBListBox1.Items.Count-1 then
exit;
t_ch_dui_format.edit;
i:=DBListBox1.ItemIndex+1;
DBListBox1.Items.Move(DBListBox1.ItemIndex,DBListBox1.ItemIndex+1);
t_ch_dui_format.post;
DBListBox1.ItemIndex:=i;
end;
procedure Tfrm_rp_dui_format.t_ch_dui_formatAfterScroll(DataSet: TDataSet);
begin
DBListBox1.Items.Text:=t_ch_dui_format.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring;
end;
end.