editstorefrm.pas

相关的销售服务管理行业的一个软件

unit EditStoreFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, Db, ADODB;

type
  TFormMode = (fmInsert,fmEdit);
  TEditStoreForm = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBComboBox1: TDBComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Label7: TLabel;
    DBEdit5: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    FormMode: TFormMode;
    EditRecord: string;
     { Public declarations }
  end;

var
  EditStoreForm: TEditStoreForm;

implementation

uses U_DM;

{$R *.DFM}

procedure TEditStoreForm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TEditStoreForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TEditStoreForm.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Post;
  close;
end;

procedure TEditStoreForm.FormDestroy(Sender: TObject);
begin
  EditStoreForm := nil;
end;

procedure TEditStoreForm.FormShow(Sender: TObject);
  procedure InitInsert;
  begin
    with ADOQuery1 do
    begin
      SQL.Add(' WHERE StoreCode = '''' ');
      Open;
      Append;
    end;
  end;
  procedure InitEdit;
  begin
    with ADOQuery1 do
    begin
      sQL.Add(' WHERE StoreCode = :StoreCode        ');
      Parameters[0].Value := EditRecord;
      Open;
      Edit;
    end;
  end;
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' SELECT     StoreCode AS 分销店编码, ');
    SQL.Add('            StoreName AS 商店名称,   ');
    SQL.Add('              Address AS 地址,       ');
    SQL.Add('       RelationMethod AS 联系方式,   ');
    SQL.Add('       RelationPerson AS 联系人,     ');
    SQL.Add('                 type AS 类型,       ');
    SQL.Add('                 Memo AS 备注        ');
    SQL.Add(' FROM  xs_store                      ');
  end;
  case FormMode of
    fmInsert: InitInsert;
    fmEdit: InitEdit;
  end;
end;

end.