u_customer.pas

这是一个用条码录入的数据的进销存(只对成品）---做童装的

unit U_Customer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Set_Base, WinSkinStore, WinSkinData, DB, ADODB, Buttons,
  Grids, DBGridEh, ExtCtrls, StdCtrls, Mask, DBCtrls;

type
  TF_Customer = class(TF_set_base)
    Ado_QueryCustno: TStringField;
    Ado_QueryCustname: TStringField;
    Ado_QueryAreaname: TStringField;
    Ado_QueryShopname: TStringField;
    Ado_QueryAddress: TStringField;
    Ado_QueryTel: TStringField;
    Ado_QueryFax: TStringField;
    Ado_QueryEmail: TStringField;
    Ado_QueryContactman: TStringField;
    Ado_QueryZkrate: TFloatField;
    Label1: TLabel;
    ECustno: TDBEdit;
    Label2: TLabel;
    ECustname: TDBEdit;
    Label3: TLabel;
    EArea: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    EAdd: TDBEdit;
    Label6: TLabel;
    EContactman: TDBEdit;
    Label7: TLabel;
    ETel: TDBEdit;
    Label8: TLabel;
    EFax: TDBEdit;
    Label9: TLabel;
    EEmail: TDBEdit;
    Label10: TLabel;
    EZkrate: TDBEdit;
    EShopName: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure btn_insertClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Customer: TF_Customer;

implementation

uses U_DM, U_Function;

{$R *.dfm}

procedure TF_Customer.FormCreate(Sender: TObject);
begin
  inherited;
Height:=432;
Width:=641;
OpenSql(Ado_query,'Select * From ICustomer');

end;

procedure TF_Customer.btn_insertClick(Sender: TObject);
begin
ECustno.SetFocus;
  inherited;

end;

end.