addfeeder.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

unit AddFeeder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons;

type
  TAddFeederFrm = class(TForm)
    Feeder_GroupBox: TGroupBox;
    CompanyName_Label: TLabel;
    LinkMan_Label: TLabel;
    Address_Label: TLabel;
    City_Label: TLabel;
    Region_Label: TLabel;
    ZipCode_Label: TLabel;
    Tel_Label: TLabel;
    Fax_Label: TLabel;
    Homepage_Label: TLabel;
    FeederRemark_GroupBox: TGroupBox;
    FeederRemark_Edit: TEdit;
    CompanyName_Edit: TEdit;
    LinkMan_Edit: TEdit;
    Address_Edit: TEdit;
    City_Edit: TEdit;
    Region_Edit: TEdit;
    ZipCode_Edit: TEdit;
    Tel_Edit: TEdit;
    Fax_Edit: TEdit;
    Homepage_Edit: TEdit;
    AddFeederOk_BitBtn: TBitBtn;
    AddFeederReturn_BitBtn: TBitBtn;
    AddFeeder_Table: TTable;
    AddFeeder_Query: TQuery;
    procedure AddFeederReturn_BitBtnClick(Sender: TObject);
    procedure AddFeederOk_BitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddFeederFrm: TAddFeederFrm;

implementation

{$R *.dfm}

procedure TAddFeederFrm.AddFeederReturn_BitBtnClick(Sender: TObject);
begin
   AddFeederFrm.hide;
end;

procedure TAddFeederFrm.AddFeederOk_BitBtnClick(Sender: TObject);
var FeederID,flag,i:integer;
    UsernameCompanyName:string;
begin
  with AddFeeder_Query do
    begin  
       if recordcount=0 then
            FeederID:=0
       else
            begin
              last;
              FeederID:=recordcount;
            end;
    end;
   flag:=0;
   //-------判断数据是否已经存在------
   AddFeeder_Table.first;
   for i:=1 to AddFeeder_Table.recordcount do
       begin
         UsernameCompanyName:=AddFeeder_Table.fieldbyname('CompanyName').AsString;
         if  CompanyName_Edit.Text=UsernameCompanyName then
                 flag:=1;
         AddFeeder_Table.next;
       end;
   if flag=0 then
     begin
  with  AddFeeder_Table do
    begin
    last;
    //-------添加供应商数据------
    append;
    fieldvalues['FeederID']:=inttostr(FeederID+1);
    fieldvalues['CompanyName']:=CompanyName_Edit.Text;
    fieldvalues['LinkMan']:=LinkMan_Edit.Text;
    fieldvalues['Address']:=Address_Edit.Text;
    fieldvalues['City']:=City_Edit.Text;
    fieldvalues['Region']:=Region_Edit.Text;
    fieldvalues['Zipcode']:=Zipcode_Edit.Text;
    fieldvalues['Tel']:=Tel_Edit.Text;
    fieldvalues['Fax']:=Fax_Edit.Text;
    fieldvalues['Homepage']:=Homepage_Edit.Text;
    fieldvalues['FeederRemark']:=FeederRemark_Edit.Text;
    post;
    update;
    //-------清空-------
    CompanyName_Edit.Text:='';
    LinkMan_Edit.Text:='';
    Address_Edit.Text:='';
    City_Edit.Text:='';
    Region_Edit.Text:='';
    Zipcode_Edit.Text:='';
    Tel_Edit.Text:='';
    Fax_Edit.Text:='';
    Homepage_Edit.Text:='';
    FeederRemark_Edit.Text:='';
    end;
     end
  else
     messagebox(AddFeederFrm.handle,'该顾客已经存在，您无权添加！','警告',mb_ok+mb_iconwarning);
end;

end.