addcustomer.pas

可对供应商,顾客,商品,信息进行添加修改查询删除.可随时统计进货量和销售量,同时统计销售额和利润等.

unit AddCustomer;

interface

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

type
  TAddCustomerFrm = class(TForm)
    Customer_GroupBox: TGroupBox;
    CompanyName_Label: TLabel;
    LinkMan_Label: TLabel;
    CustomerRemark_GroupBox: TGroupBox;
    CustomerRemark_Edit: TEdit;
    CompanyName_Edit: TEdit;
    LinkMan_Edit: TEdit;
    CustomerAdd_BitBtn: TBitBtn;
    CustomerReturn_BitBtn: TBitBtn;
    AddCustomer_Table: TTable;
    AddCustomer_Query: TQuery;
    Address_Label: TLabel;
    Address_Edit: TEdit;
    City_Edit: TEdit;
    City_Label: TLabel;
    Region_Label: TLabel;
    Region_Edit: TEdit;
    ZipCode_Edit: TEdit;
    ZipCode_Label: TLabel;
    Tel_Edit: TEdit;
    Tel_Label: TLabel;
    Homepage_Label: TLabel;
    Homepage_Edit: TEdit;
    Fax_Label: TLabel;
    Fax_Edit: TEdit;
  procedure CustomerAdd_BitBtnClick(Sender: TObject);
    procedure CustomerReturn_BitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddCustomerFrm: TAddCustomerFrm;

implementation

uses MainForm;

{$R *.dfm}
procedure TAddCustomerFrm.CustomerAdd_BitBtnClick(Sender: TObject);
var CustomerID,flag,i:integer;
    UsernameCompanyName:string;
begin
  with AddCustomer_query do
    begin
    if recordcount=0 then
       CustomerID:=0
    else
     begin
       last;
       CustomerID:=recordcount;
     end;
    end;
   flag:=0;
   //-------判断数据是否已经存在------
   AddCustomer_Table.first;
   for i:=1 to AddCustomer_Table.recordcount do
       begin
         UsernameCompanyName:=AddCustomer_Table.fieldbyname('CompanyName').AsString;
         if  CompanyName_Edit.Text=UsernameCompanyName then
                 flag:=1;
         AddCustomer_Table.next;
       end;
   if flag=0 then
     begin
       with AddCustomer_Table do
        begin
          last;
           //-------添加顾客数据-------
          append;
          fieldvalues['CustomerID']:=inttostr(CustomerID+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['CustomerRemark']:=CustomerRemark_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:='';
          CustomerRemark_Edit.Text:='';
       end;
     end
   else
     messagebox(AddCustomerFrm.handle,'该顾客已经存在，您无权添加！','警告',mb_ok+mb_iconwarning);
end;

procedure TAddCustomerFrm.CustomerReturn_BitBtnClick(Sender: TObject);
begin
   AddCustomerFrm.hide;
end;

end.