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.
119 lines
3.1 KiB
Plaintext
119 lines
3.1 KiB
Plaintext
unit u_op_kuaidi_manage_modify;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, bsSkinCtrls, ExtCtrls, BusinessSkinForm, StdCtrls, Mask, DBCtrls,
|
|
RxLookup, wwdbedit, Wwdotdot, Wwdbcomb, wwdbdatetimepicker;
|
|
|
|
type
|
|
Tfrm_op_kuaidi_manage_modify = class(TForm)
|
|
Panel1: TPanel;
|
|
bsSkinButton7: TbsSkinButton;
|
|
bsSkinButton6: TbsSkinButton;
|
|
bsSkinButton2: TbsSkinButton;
|
|
bsSkinButton4: TbsSkinButton;
|
|
bsSkinButton8: TbsSkinButton;
|
|
bsSkinButton9: TbsSkinButton;
|
|
bsSkinButton11: TbsSkinButton;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
DBEdit1: TDBEdit;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
DBEdit2: TDBEdit;
|
|
Label7: TLabel;
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
Label9: TLabel;
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
Label3: TLabel;
|
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
|
Label4: TLabel;
|
|
DBEdit3: TDBEdit;
|
|
Label5: TLabel;
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
DBEdit4: TDBEdit;
|
|
Label6: TLabel;
|
|
Label13: TLabel;
|
|
RxDBLookupCombo5: TRxDBLookupCombo;
|
|
wwDBDateTimePicker4: TwwDBDateTimePicker;
|
|
Label11: TLabel;
|
|
DBMemo1: TDBMemo;
|
|
Label8: TLabel;
|
|
Label10: TLabel;
|
|
DBMemo2: TDBMemo;
|
|
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_op_kuaidi_manage_modify: Tfrm_op_kuaidi_manage_modify;
|
|
|
|
implementation
|
|
|
|
uses u_op_kuaidi_manage, u_data_share, my_sys_function;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_op_kuaidi_manage_modify.FormKeyPress(Sender: TObject;
|
|
var Key: Char);
|
|
begin
|
|
if key=#13 then
|
|
begin
|
|
if not(activecontrol is Tdbmemo)then
|
|
begin
|
|
Perform(WM_NEXTDLGCTL,0,0);
|
|
key:=#0;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure Tfrm_op_kuaidi_manage_modify.bsSkinButton9Click(Sender: TObject);
|
|
begin
|
|
table_post(frm_op_kuaidi_manage.t_op_kuaidi_manage);
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_op_kuaidi_manage_modify.bsSkinButton7Click(Sender: TObject);
|
|
begin
|
|
table_Prior(frm_op_kuaidi_manage.t_op_kuaidi_manage);
|
|
end;
|
|
|
|
procedure Tfrm_op_kuaidi_manage_modify.bsSkinButton6Click(Sender: TObject);
|
|
begin
|
|
table_next(frm_op_kuaidi_manage.t_op_kuaidi_manage);
|
|
end;
|
|
|
|
procedure Tfrm_op_kuaidi_manage_modify.bsSkinButton11Click(
|
|
Sender: TObject);
|
|
begin
|
|
table_post(frm_op_kuaidi_manage.t_op_kuaidi_manage);
|
|
end;
|
|
|
|
procedure Tfrm_op_kuaidi_manage_modify.bsSkinButton4Click(Sender: TObject);
|
|
begin
|
|
table_delete(frm_op_kuaidi_manage.t_op_kuaidi_manage);
|
|
end;
|
|
|
|
procedure Tfrm_op_kuaidi_manage_modify.bsSkinButton8Click(Sender: TObject);
|
|
begin
|
|
table_cancel(frm_op_kuaidi_manage.t_op_kuaidi_manage);
|
|
end;
|
|
|
|
procedure Tfrm_op_kuaidi_manage_modify.bsSkinButton2Click(Sender: TObject);
|
|
begin
|
|
frm_op_kuaidi_manage.t_op_kuaidi_manage.insert;
|
|
end;
|
|
|
|
end.
|