D7myYunxiang/云翔基础资料(BaseInfoYX.dll)/U_BPZdy_YT.pas

unit U_BPZdy_YT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DB, ADODB;

type
  TFrmBPZdy_YT = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ADOQueryCmd: TADOQuery;
    Label6: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    BJFlag,FSKID:string;
  end;

var
  FrmBPZdy_YT: TFrmBPZdy_YT;

implementation
uses
   U_ZDYHelp,U_DataLink;

{$R *.dfm}

procedure TFrmBPZdy_YT.Button1Click(Sender: TObject);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='ColType';
      flagname:='ɫϵ';
      if ShowModal=1 then
      begin
        Self.Edit1.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('UPdate RT_PTColor Set ColName='''+Trim(Self.Edit1.Text)+'''');
          sql.Add(' where PTID='''+Trim(Self.Label1.Caption)+'''');
          ExecSQL;
        end;
        Self.Label3.Caption:=Trim(Self.Edit1.Text);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TFrmBPZdy_YT.FormShow(Sender: TObject);
begin
  if Trim(BJFlag)='Y' then
  begin
    Edit1.Visible:=True;
    Edit1.Text:=Trim(Label3.Caption);
    Button1.Visible:=True;
  end else
  begin
    Edit1.Visible:=False;
    Button1.Visible:=False;
  end;
end;

procedure TFrmBPZdy_YT.Button2Click(Sender: TObject);
begin
  try
    frmZDYHelp:=TfrmZDYHelp.Create(Application);
    with frmZDYHelp do
    begin
      flag:='GYSColType';
      flagname:='<27><>Ӧ<EFBFBD><D3A6>ɫ<EFBFBD><C9AB>';
      if ShowModal=1 then
      begin
        Self.Edit2.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add('UPdate BP_ColZDY Set GYSColNo='''+Trim(Self.Edit2.Text)+'''');
          sql.Add(' where PTID='''+Trim(Self.Label1.Caption)+'''');
          SQL.Add(' and SKID='''+trim(FSKID)+'''');
          ExecSQL;
        end;
        Self.Label6.Caption:=Trim(Self.Edit2.Text);
      end;
    end;
  finally
    frmZDYHelp.Free;
  end;
end;

procedure TFrmBPZdy_YT.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  ModalResult:=1;
end;

end.