frm_company.pas

这是一个基于delphi平台的物流空运管理系统！

unit Frm_Company;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Frm_Cargo, XPMenu, Menus, Buttons, EnterAsTab, GIFImage,
  ExtCtrls, StdCtrls, DB, ADODB;

type
  TFrmCompany = class(TFrmCargo)
    QryTemp: TADOQuery;
    Label1: TLabel;
    EdtCName: TEdit;
    Label2: TLabel;
    EdtName: TEdit;
    Label7: TLabel;
    CmbComCountry: TComboBox;
    Label8: TLabel;
    CmbComProvice: TComboBox;
    Label3: TLabel;
    EdtCorporation: TEdit;
    Label4: TLabel;
    EdtRelation: TEdit;
    Label5: TLabel;
    EdtTele: TEdit;
    Label6: TLabel;
    EdtFax: TEdit;
    Label9: TLabel;
    EdtCable: TEdit;
    Label10: TLabel;
    EdtMail: TEdit;
    Label13: TLabel;
    EdtBankNo: TEdit;
    Label11: TLabel;
    EdtAddress: TEdit;
    Label12: TLabel;
    EdtRemark: TEdit;
    BtnEnter: TButton;
    BtnCancel: TButton;
    procedure BtnEnterClick(Sender: TObject);
    procedure CmbComCountryExit(Sender: TObject);
    procedure CmbComProviceExit(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    IsEdit: Boolean;
    CompanyCName: string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCompany: TFrmCompany;

implementation

uses Frm_Main;

{$R *.dfm}

procedure TFrmCompany.BtnEnterClick(Sender: TObject);
var
  SqlStr: string;
begin
  inherited;
  if FrmMain.IncludeValue('普通代码维护') then
  else
  begin
    ShowMessage('对不起，你不具有该操作的权限！');
    exit;
  end;
  if EdtCName.Text = '' then
  begin
    ShowMessage('公司的中文名称不可为空');
    EdtCName.SetFocus;
    Exit;
  end;

  if EdtMail.Text = '' then
  else
  begin
    if Pos('@', EdtMail.Text) > 1 then
    else
    begin
      ShowMessage('请输入正确的E_Mail地址');
      EdtMail.SetFocus;
      Exit;
    end;
  end;

  if IsEdit then
  begin
    try
      SqlStr := '';
      FrmMain.UpStr(SqlStr, 'Company');
      FrmMain.UpStr(SqlStr, 'ComCName', EdtCName.text, ',');
      FrmMain.UpStr(SqlStr, 'ComName', EdtName.text, ',');
      FrmMain.UpStr(SqlStr, 'Country', FrmMain.GetFieldText(CmbComCountry.Text,
        1), ',');
      FrmMain.UpStr(SqlStr, 'Provice', FrmMain.GetFieldText(CmbComProvice.Text,
        1), ',');
      FrmMain.UpStr(SqlStr, 'ComCorporation', EdtCorporation.text, ',');
      FrmMain.UpStr(SqlStr, 'ComRelation', EdtRelation.text, ',');
      FrmMain.UpStr(SqlStr, 'TelePhone', EdtTele.text, ',');
      FrmMain.UpStr(SqlStr, 'Fax', EdtFax.text, ',');
      FrmMain.UpStr(SqlStr, 'Cable', EdtCable.text, ',');
      FrmMain.UpStr(SqlStr, 'Mail', EdtMail.text, ',');
      FrmMain.UpStr(SqlStr, 'Address', EdtAddress.text, ',');
      FrmMain.UpStr(SqlStr, 'BankNo', EdtBankNo.text, ',');
      FrmMain.UpStr(SqlStr, 'Remark', EdtRemark.text, '');

      FrmMain.UpStr(SqlStr, 'ComCName=', CompanyCName, 'w');
      if FrmMain.ExecSQL(SqlStr) then
      else
      begin
        ShowMessage('更新代码记录失败,请检查!');
        exit;
      end;
      IsEdit := True;
      CompanyCName := EdtCName.Text;
    except
      ShowMessage('插入记录失败,请检查!');
      exit;
    end;
  end
  else
  begin
    try
      SqlStr :=
        'Insert Into Company(ComCName,ComName,Country,Provice,ComCorporation,ComRelation,TelePhone,Fax,Cable,Mail,Address,BankNo,Remark) values(';
      FrmMain.InsStr(SqlStr, EdtCName.text, ',');
      FrmMain.InsStr(SqlStr, EdtName.text, ',');
      FrmMain.InsStr(SqlStr, FrmMain.GetFieldText(CmbComCountry.Text, 1), ',');
      FrmMain.InsStr(SqlStr, FrmMain.GetFieldText(CmbComProvice.Text, 1), ',');
      FrmMain.InsStr(SqlStr, EdtCorporation.Text, ',');
      FrmMain.InsStr(SqlStr, EdtRelation.Text, ',');
      FrmMain.InsStr(SqlStr, EdtTele.Text, ',');
      FrmMain.InsStr(SqlStr, EdtFax.Text, ',');
      FrmMain.InsStr(SqlStr, EdtCable.Text, ',');
      FrmMain.InsStr(SqlStr, EdtMail.Text, ',');
      FrmMain.InsStr(SqlStr, EdtAddress.Text, ',');
      FrmMain.InsStr(SqlStr, EdtBankNo.Text, ',');
      FrmMain.InsStr(SqlStr, EdtRemark.text, '');
      if FrmMain.ExecSQL(SqlStr) then
      else
      begin
        ShowMessage('插入记录失败,请检查!');
        exit;
      end;
      IsEdit := true;
      CompanyCName := EdtCName.Text;
    except
      ShowMessage('插入记录失败,请检查!');
      exit;
    end;
  end;

end;

procedure TFrmCompany.CmbComCountryExit(Sender: TObject);
begin
  inherited;
  CmbComCountry.Text := FrmMain.CheckComboBox(CmbComCountry);
end;

procedure TFrmCompany.CmbComProviceExit(Sender: TObject);
begin
  inherited;
  CmbComProvice.Text := FrmMain.CheckComboBox(CmbComProvice);
end;

procedure TFrmCompany.BtnCancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrmCompany.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := CaFree;
end;

procedure TFrmCompany.FormCreate(Sender: TObject);
var
  SqlStr: string;
begin
  inherited;
  SqlStr := 'Select Code,CName from CountryInfo';
  FrmMain.Full_FilterCombobox(CmbComCountry, SqlStr, 'Code', 'CName');
  SqlStr := 'Select Code,CName from ProviceInfo';
  FrmMain.Full_FilterCombobox(CmbComProvice, SqlStr, 'Code', 'CName');
  SqlStr :=
    'Select ComCName,ComName,Country,Provice,ComCorporation,ComRelation,TelePhone,Fax,Cable,Mail,Address,BankNo,Remark from Company';
  QryTemp.Close;
  QryTemp.SQL.Text := SqlStr;
  QryTemp.Open;
  if QryTemp.RecordCount < 1 then
  begin
    IsEdit := False;
    Exit;
  end;
  IsEdit := True;
  EdtCName.Text := QryTemp.FieldByName('ComCName').AsString;
  EdtName.Text := QryTemp.FieldBYName('ComName').AsString;
  CmbComCountry.Text :=
    FrmMain.setComboBoxText(QryTemp.FieldBYName('Country').AsString,
    CmbComCountry);
  CmbComProvice.Text :=
    FrmMain.setcomboboxtext(QryTemp.FieldByName('Provice').AsString,
    CmbComProvice);
  EdtCorporation.Text := QryTemp.fieldBYName('ComCorporation').AsString;
  EdtRelation.Text := QryTemp.fieldBYName('ComRelation').AsString;
  EdtTele.Text := QryTemp.fieldBYName('TelePhone').AsString;
  EdtFax.Text := QryTemp.fieldBYName('Fax').AsString;
  EdtCable.Text := QryTemp.fieldBYName('Cable').AsString;
  EdtMail.Text := QryTemp.fieldBYName('Mail').AsString;
  EdtAddress.Text := QryTemp.fieldBYName('Address').AsString;
  EdtBankNo.Text := QryTemp.fieldBYName('BankNo').AsString;
  EdtRemark.Text := QryTemp.fieldBYName('Remark').AsString;
  CompanyCName := QryTemp.FieldByName('ComCName').AsString;
end;

procedure TFrmCompany.FormDestroy(Sender: TObject);
begin
  inherited;
  FrmCompany := nil;
end;

end.