【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:DdAdd.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit DdAdd;
interface
uses
Windows, SysUtils, Variants, Classes, Controls, Forms, Dialogs, ComCtrls,
StdCtrls, DB, dmXsgl, XSGLCommon;
type
TDdAddForm = class(TForm)
lblKhbh: TLabel;
lblDdrq: TLabel;
btOK: TButton;
btCancel: TButton;
cbKhbh: TComboBox;
dtpDdrq: TDateTimePicker;
lblDdh: TLabel;
edtDdh: TEdit;
lblXm: TLabel;
edtXm: TEdit;
procedure btOKClick(Sender: TObject);
procedure cbKhbhChange(Sender: TObject);
private
{ Private declarations }
FdmXSGL: TdmXsgl;
function CheckData: Boolean;
public
{ Public declarations }
constructor Create(AOwner: TComponent; AdmXSGL: TdmXsgl); reintroduce;
end;
implementation
{$R *.dfm}
function TDdAddForm.CheckData: Boolean;
begin
Result := False;
if Length(Trim(edtDdh.Text)) = 0 then
begin
showmessage('订单号不能为空!');
edtDdh.SetFocus;
Exit;
end;
if cbKHBH.ItemIndex = -1 then
begin
showmessage('请选择客户编号!');
cbKhbh.SetFocus;
Exit;
end;
if FdmXSGL.LocateValue('DDXX', 'DDH', edtDdh.Text) then
begin
ShowMessage('订单号不能重复,请重新输入!');
edtDdh.SetFocus;
Exit;
end;
Result := True;
end;
constructor TDdAddForm.Create(AOwner: TComponent; AdmXSGL: TdmXsgl);
begin
inherited Create(AOwner);
FdmXSGL := AdmXSGL;
with FdmXSGL do
InitComboBox(cbKHBH.items, 'KHXX', 'KHBH');
end;
procedure TDdAddForm.btOKClick(Sender: TObject);
begin
if CheckData then
begin
with FdmXSGL.adoqDdxx do
begin
Append;
FieldByName('DDH').AsString := Trim(edtDDH.Text);
FieldByName('KHBH').AsString := Trim(cbKHBH.Text);
FieldByName('DDRQ').AsDateTime := dtpDDRQ.Date;
Post;
ReQuery;
end;
Close;
end;
end;
procedure TDdAddForm.cbKhbhChange(Sender: TObject);
begin
with FdmXsgl.adoqCommon do
begin
Close;
SQL.Text := 'Select * From KHXX where KHBH = ' + QuotedStr(cbKhbh.Text);
Open;
edtXm.Text := FieldByName('XM').AsString;
end;
end;
end.
上一篇:
DCM.pas
下一篇:
不规则零件优化排样的神经网络混合优化算法