unitregistration.~pas

Delphi与sqlserver应用。适用于初学者

unit UnitRegistration;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ADODB,DB,UnitData;

type
  TfrmRegistration = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit2: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    btnAdd: TButton;
    btnClose: TButton;
    DateTimePicker1: TDateTimePicker;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    Label13: TLabel;
    Label14: TLabel;
    btnUpdate: TButton;
    procedure btnCloseClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnUpdateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmRegistration: TfrmRegistration;

implementation

{$R *.dfm}

procedure TfrmRegistration.btnCloseClick(Sender: TObject);
begin
    Edit1.Text:='';  Edit2.Text:='';  Memo1.Text:='';
    DateTimePicker1.Date:=now;  Edit5.Text:='';  Edit6.Text:='';
    Edit7.Text:='';  Edit8.Text:='';  Edit9.Text:='';
    ComboBox1.Text :='友好型';  Edit11.Text:='';  Edit12.Text:='';
    Close;
end;

procedure TfrmRegistration.btnAddClick(Sender: TObject);
begin
  if   Edit1.Text='' then
  Application.MessageBox('请输入登记客户信息，谢谢！','警告：',0+48)
  else begin
  try
    UnitData.DataModule1.ADOQReg.Close ;
    UnitData.DataModule1.ADOQReg.SQl.Clear ;
    UnitData.DataModule1.ADOQReg.SQl.Add('insert into TabCompany(CompanyNo,CompanyName,Business,InstallationTime,Address,City,Telephone,Fax,Email,Types,Source,Status'
    +')values('''+edit1.Text +''','''+edit2.Text+''','''+Memo1.Lines.Text+''','''+datetostr(DateTimePicker1.Date)+''','''
    +edit5.Text+''','''+edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''','''+edit9.Text+''','''
    +ComboBox1.Text+''','''+edit11.Text+''','''+edit12.Text+''')');
    UnitData.DataModule1.ADOQReg.ExecSQL;
    Application.MessageBox('客户信息添加成功。','提示：',0+48);
  except
    Application.MessageBox('客户信息已成功添加！！！','警告：',0+48);
  end;
  end;
end;
procedure TfrmRegistration.FormCreate(Sender: TObject);
begin
    Edit1.Text:='';  Edit2.Text:='';  Memo1.Text:='';
    DateTimePicker1.Date:=now;  Edit5.Text:='';  Edit6.Text:='';
    Edit7.Text:='';  Edit8.Text:='';  Edit9.Text:='';
    ComboBox1.Text :='友好型';  Edit11.Text:='';  Edit12.Text:='';
end;
procedure TfrmRegistration.btnUpdateClick(Sender: TObject);
begin
 if  Edit1.Text<> UnitData.DataModule1.ADOQEnq.FieldByName('CompanyNo').AsString then
    Application.MessageBox('公司编号不能修改，可以修改其他信息！！！','警告：',0+48);
    Edit1.Text:=UnitData.DataModule1.ADOQEnq.FieldByName('CompanyNo').AsString
 else begin
    try
    UnitData.DataModule1.ADOQReg.Close ;
    UnitData.DataModule1.ADOQReg.SQl.Clear ;
    UnitData.DataModule1.ADOQReg.SQl.Add('update TabCompany set CompanyName='''
    +edit2.Text+''','+'Business='''+Memo1.Lines.Text+''','+'InstallationTime='''+datetostr(DateTimePicker1.Date)+''','+'Address='''
    +edit5.Text+''','+'City='''+edit6.Text+''','+'Telephone='''+edit7.Text+''','+'Fax='''
    +edit8.Text+''','+'Email='''+edit9.Text+''','+'Types='''+ComboBox1.Text+''','+'Source='''
    +edit11.Text+''','+'Status='''+edit12.Text+''' where CompanyNo='''+edit1.Text+'''');
    UnitData.DataModule1.ADOQReg.ExecSQL;
    Application.MessageBox('客户信息修改成功。','提示：',0+48);
    except
    Application.MessageBox('客户信息已成功修改！！！','警告：',0+48);
    end;
 end;
end;
end.