hanxuntao
/
DS6JIEFENG
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 }
DS6JIEFENG/海运业务/u_op_module.~pas

263 lines
9.0 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_op_module;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, bsSkinCtrls, DB,
ADODB, ExtCtrls, DBCtrls, dxDBTLCl, dxGrClms, StdCtrls, RxLookup,
wwdblook, bsdbctrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb;
type
Tfrm_op_module = class(TForm)
dxDBGrid1: TdxDBGrid;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton8: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
t_op_module: TADOQuery;
ds_op_module1: TDataSource;
dxDBGrid1Column1: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridColumn;
Label23: TLabel;
DBMemo3: TDBMemo;
DBMemo4: TDBMemo;
Label24: TLabel;
Label29: TLabel;
DBMemo5: TDBMemo;
Label163: TLabel;
DBMemo38: TDBMemo;
Label164: TLabel;
DBMemo39: TDBMemo;
Label165: TLabel;
DBMemo40: TDBMemo;
Label166: TLabel;
DBMemo41: TDBMemo;
Label167: TLabel;
DBMemo42: TDBMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label12: TLabel;
Label9: TLabel;
RxDBLookupCombo9: TRxDBLookupCombo;
RxDBLookupCombo6: TRxDBLookupCombo;
wwDBLookupCombo3: TwwDBLookupCombo;
Label7: TLabel;
Label124: TLabel;
wwDBLookupCombo52: TwwDBLookupCombo;
t_op_moduleDSDesigner: TAutoIncField;
t_op_moduleDSDesigner2: TStringField;
t_op_moduleDSDesigner3: TStringField;
t_op_moduleDSDesigner4: TDateTimeField;
t_op_moduleDSDesigner5: TStringField;
t_op_moduleDSDesigner6: TStringField;
t_op_moduleDSDesigner7: TStringField;
t_op_moduleDSDesigner8: TStringField;
t_op_moduleDSDesigner9: TStringField;
t_op_moduleDSDesigner10: TStringField;
t_op_moduleDSDesigner11: TStringField;
t_op_moduleDSDesigner12: TStringField;
t_op_moduleDSDesigner13: TStringField;
t_op_moduleDSDesigner14: TStringField;
t_op_moduleDSDesigner15: TStringField;
t_op_moduleDSDesigner16: TStringField;
t_op_moduleDSDesigner17: TStringField;
t_op_moduleDSDesigner18: TStringField;
t_op_moduleDSDesigner19: TStringField;
t_op_moduleDSDesigner20: TStringField;
t_op_moduleDSDesigner21: TStringField;
t_op_moduleDSDesigner22: TStringField;
t_op_moduleDSDesigner23: TStringField;
t_op_moduleDSDesigner24: TStringField;
t_op_moduleDSDesigner25: TStringField;
t_op_moduleDSDesigner26: TStringField;
t_op_moduleDSDesigner27: TStringField;
t_op_moduleDSDesigner28: TStringField;
t_op_moduleDSDesigner29: TStringField;
t_op_moduleDSDesigner30: TStringField;
t_op_moduleDSDesigner31: TStringField;
t_op_moduleDSDesigner32: TStringField;
t_op_moduleDSDesigner33: TStringField;
t_op_moduleDSDesigner34: TStringField;
t_op_moduleDSDesigner35: TStringField;
t_op_moduleDSDesigner36: TStringField;
t_op_moduleDSDesigner37: TIntegerField;
t_op_moduleDSDesigner38: TStringField;
t_op_moduleDSDesigner39: TBCDField;
t_op_moduleDSDesigner40: TBCDField;
t_op_moduleDSDesigner41: TStringField;
t_op_moduleDSDesigner42: TStringField;
t_op_moduleDSDesigner43: TStringField;
t_op_moduleDSDesigner44: TStringField;
t_op_moduleDSDesigner45: TStringField;
t_op_moduleDSDesigner46: TStringField;
t_op_moduleDSDesigner47: TStringField;
t_op_moduleDSDesigner48: TBooleanField;
t_op_moduleDSDesigner49: TBooleanField;
t_op_moduleDSDesigner50: TBooleanField;
t_op_moduleDSDesigner51: TBooleanField;
t_op_moduleDSDesigner52: TBooleanField;
t_op_moduleDSDesigner53: TStringField;
Label30: TLabel;
Label41: TLabel;
RxDBLookupCombo31: TRxDBLookupCombo;
Label111: TLabel;
wwDBComboBox16: TwwDBComboBox;
bsSkinDBCheckRadioBox19: TbsSkinDBCheckRadioBox;
Label35: TLabel;
RxDBLookupCombo28: TRxDBLookupCombo;
RxDBLookupCombo15: TRxDBLookupCombo;
strngfld_op_moduleDSDesigner54: TStringField;
strngfld_op_moduleDSDesigner55: TStringField;
blnfld_op_moduleDSDesigner56: TBooleanField;
Label4: TLabel;
DBMemo1: TDBMemo;
Label5: TLabel;
DBEdit1: TDBEdit;
Label6: TLabel;
DBMemo2: TDBMemo;
t_op_moduleDSDesigner54: TStringField;
procedure FormShow(Sender: TObject);
procedure t_op_moduleAfterInsert(DataSet: TDataSet);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure t_op_moduleBeforePost(DataSet: TDataSet);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_module: Tfrm_op_module;
implementation
uses u_main, u_data_share, my_sys_function, dmAccu,u_op_seae;
{$R *.dfm}
procedure Tfrm_op_module.FormShow(Sender: TObject);
begin
t_op_module.Open;
end;
procedure Tfrm_op_module.t_op_moduleAfterInsert(DataSet: TDataSet);
begin
t_op_module['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_op_module['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
end;
procedure Tfrm_op_module.bsSkinButton4Click(Sender: TObject);
begin
t_op_module.Delete;
end;
procedure Tfrm_op_module.bsSkinButton2Click(Sender: TObject);
begin
if t_op_module.State in [dsEdit,dsinsert] then
t_op_module.Post;
end;
procedure Tfrm_op_module.t_op_moduleBeforePost(DataSet: TDataSet);
begin
table_before_post(t_op_module,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_op_module.bsSkinButton3Click(Sender: TObject);
begin
if t_op_module.State in [dsEdit,dsinsert] then
t_op_module.Cancel;
end;
procedure Tfrm_op_module.bsSkinButton8Click(Sender: TObject);
begin
with frm_op_seae.t_op_seae2 do
begin
DataSet.Edit;
DataSet['ί<>е<EFBFBD>λ']:=t_op_module.FieldByName('ί<>е<EFBFBD>λ').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
DataSet['<27>ջ<EFBFBD><D5BB><EFBFBD>']:=t_op_module.FieldByName('<27>ջ<EFBFBD><D5BB><EFBFBD>').AsString;
DataSet['֪ͨ<CDA8><D6AA>']:=t_op_module.FieldByName('֪ͨ<CDA8><D6AA>').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>˴<EFBFBD><CBB4><EFBFBD>').AsString;
DataSet['<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_module.FieldByName('<27>ջ<EFBFBD><D5BB>˴<EFBFBD><CBB4><EFBFBD>').AsString;
DataSet['֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>']:=t_op_module.FieldByName('֪ͨ<CDA8>˴<EFBFBD><CBB4><EFBFBD>').AsString;
DataSet['<27><>վ']:=t_op_module.FieldByName('<27><>վ').AsString;
DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
DataSet['<27><><EFBFBD>˸<EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD>˸<EFBFBD>').AsString;
DataSet['װ<><D7B0><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('װ<><D7B0><EFBFBD><EFBFBD>').AsString;
DataSet['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=t_op_module.FieldByName('װ<>۴<EFBFBD><DBB4><EFBFBD>').AsString;
DataSet['ж<><D0B6><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('ж<><D0B6><EFBFBD><EFBFBD>').AsString;
DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
DataSet['Ŀ<>ĵ<EFBFBD>']:=t_op_module.FieldByName('Ŀ<>ĵ<EFBFBD>').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
DataSet['<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>').AsString;
DataSet['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:=t_op_module.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').AsString;
DataSet['ǩ<><C7A9><EFBFBD>ص<EFBFBD>']:=t_op_module.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').AsString;
DataSet['Ԥ<><D4A4><EFBFBD>ص<EFBFBD>']:=t_op_module.FieldByName('Ԥ<><D4A4><EFBFBD>ص<EFBFBD>').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
DataSet['<27><>ͷ']:=t_op_module.FieldByName('<27><>ͷ').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
{
DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
}
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д').AsString;
DataSet['<27><><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD>').AsString;
DataSet['<27><><EFBFBD><EFBFBD>˾']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD>˾').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾').AsString;
DataSet['<27><>ע']:=t_op_module.FieldByName('<27><>ע').AsString;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
DataSet['<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>').AsString;
DataSet['<27><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>').Value;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
DataSet['Ѭ<><D1AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('Ѭ<><D1AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
DataSet['<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>').Value;
DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_op_module.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value;
DataSet['<27><><EFBFBD>ѷ<EFBFBD>ʽ']:=t_op_module.FieldByName('<27><><EFBFBD>ѷ<EFBFBD>ʽ').Value;
DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:=t_op_module.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD>Դ').Value;
DataSet['<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD><CFB5>']:=t_op_module.FieldByName('<27><>վ<EFBFBD><D5BE>ϵ<EFBFBD><CFB5>').Value;
DataSet['ǩ<><C7A9><EFBFBD><EFBFBD>ʽ']:=t_op_module.FieldByName('ǩ<><C7A9><EFBFBD><EFBFBD>ʽ').Value;
DataSet['<27>˷<EFBFBD>']:=t_op_module.FieldByName('<27>˷<EFBFBD>').Value;
DataSet['<27>ڶ<EFBFBD>֪ͨ<CDA8><D6AA>']:=t_op_module.FieldByName('<27>ڶ<EFBFBD>֪ͨ<CDA8><D6AA>').Value;
DataSet.Post;
end;
Close;
end;
end.
Reference in New Issue View Git Blame Copy Permalink