frmvendormanage.pas

物流供应链管理系统

unit frmVendorManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, LCDBOperatTool, ComCtrls, Mask, DBCtrls,
  DBSelectDlgEdit, Grids, DBGrids, DB, ADODB;

type
  TFormVendor = class(TForm)
    LCDBOperatTool1: TLCDBOperatTool;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label2: TLabel;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBEdtId: TDBEdit;
    DBEdtPassword: TDBEdit;
    DBEdtZipCode: TDBEdit;
    DBEdtName: TDBEdit;
    DBEdtAddress: TDBEdit;
    DBEdtTel: TDBEdit;
    DBEdtMobile: TDBEdit;
    DBEdtFax: TDBEdit;
    DBEdBankAccount: TDBEdit;
    DBEdPayType: TDBEdit;
    DBEdtCurrentBank: TDBEdit;
    DBEdOperatorName: TDBEdit;
    DBEdtOperatorPhone: TDBEdit;
    DBEdtOperatorMobilePhone: TDBEdit;
    DBEdtRegionId: TDBEdit;
    DBGrid1: TDBGrid;
    Label10: TLabel;
    DBEdtEmail: TDBEdit;
    DBEdtContactMan: TDBEdit;
    Label9: TLabel;
    Label11: TLabel;
    DBEdtWebSite: TDBEdit;
    CBField: TComboBox;
    RBEqual: TRadioButton;
    RBContain: TRadioButton;
    EdtSearchValue: TEdit;
    BtnSearch: TButton;
    DSVendor: TDataSource;
    ADOQVendor: TADOQuery;
    Button1: TButton;
    ADOQVendorId: TWideStringField;
    ADOQVendorPassword: TWideStringField;
    ADOQVendorName: TWideStringField;
    ADOQVendorAddress: TWideStringField;
    ADOQVendorZipCode: TWideStringField;
    ADOQVendorTelephone: TWideStringField;
    ADOQVendorMobilePhone: TWideStringField;
    ADOQVendorFax: TWideStringField;
    ADOQVendorContactMan: TWideStringField;
    ADOQVendorEmail: TWideStringField;
    ADOQVendorWebSite: TWideStringField;
    ADOQVendorRegionId: TWideStringField;
    ADOQVendorCurrentBank: TWideStringField;
    ADOQVendorBankAccount: TWideStringField;
    ADOQVendorOperatorMobilePhone: TWideStringField;
    ADOQVendorOperatorname: TWideStringField;
    ADOQVendorOperatorTelePhone: TWideStringField;
    ADOQVendorPayType: TSmallintField;
    BtnExitSearch: TButton;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure BtnSearchClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormVendor: TFormVendor;

implementation
uses untConfig, untGlobal, StrUtils, CommonFunc;
{$R *.dfm}

procedure TFormVendor.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TFormVendor.FormCreate(Sender: TObject);
begin
  ADOQVendor.ConnectionString := GetConnectionString;
  try
    ADOQVendor.Open;
  except
    raise Exception.Create(Format(ERRORCANNOTOPENTABLE,['供应商']));
  end;
end;

procedure TFormVendor.BtnSearchClick(Sender: TObject);
var
  LName, LCon, LValue: string;
  LSql: string;
begin
  if not CheckInput(CBField) then Exit;
  LName := CBField.Items.ValueFromIndex[CBField.ItemIndex];
  LCon := IfThen(RBEqual.Checked,' = ', 'like');
  LValue := Trim(EdtSearchValue.Text);
  LValue := IfThen(RBEqual.Checked,QuotedStr(LValue), QuotedStr('%'+LValue+'%'));
  LSql := Format('select * from t_Vendor where %s %s %s',[LName, LCon, LValue]);
  ADOQVendor.Close;
  ADOQVendor.SQL.Text := LSql;
  ADOQVendor.Open;

end;

procedure TFormVendor.Button1Click(Sender: TObject);
begin
  DBEdtRegionId.Text := ShowFieldSelectDlg(ADOQVendor.ConnectionString, 't_Region');
end;

end.