布匹出口单管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](七)

var
  DataManagerForm: TDataManagerForm;

implementation

uses dataform, main;

{$R *.dfm}

procedure TDataManagerForm.ExitSpeedButtonClick(Sender: TObject);
begin
  MDataForm.PMManagerADOQuery.Close;
  MDataForm.ClientNameADOQuery.Close;

  Close;
end;

procedure TDataManagerForm.PzmcSpeedButtonClick(Sender: TObject);
begin
  InputPageControl.ActivePageIndex :=0;
  //打开品种资料库
  try
    with MDataForm.PMManagerADOQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from BreedName');
      Open;
    end;
    PzmcEdit.SetFocus;
  except
    MainForm.PshowMessage('系统错误','打开资料库时失败！',0);
  end;
end;

procedure TDataManagerForm.ClientNameSpeedButtonClick(Sender: TObject);
begin
  InputPageControl.ActivePageIndex :=1;
  //打开客户资料
  try
    with MDataForm.ClientNameADOQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from ClientName');
      Open;
    end;
    ClientNameEdit.SetFocus;
  except
    MainForm.PshowMessage('系统错误','打开资料库时失败！',0);
  end;

end;

procedure TDataManagerForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key=#13) and not(ActiveControl is TDBGrid)then
    Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TDataManagerForm.AddPMSpeedButtonClick(Sender: TObject);
var SaveOK :boolean;
begin
  //先禁用ADOQuery,保存数据，关闭，打开，再解开禁止
  SaveOK :=SaveBreedName(PzmcEdit.Text, WidthEdit.Text, MzEdit.Text, KcEdit.Text,
                         CfEdit.Text);
  if not SaveOK then
     MainForm.PshowMessage('系统错误','保存品种名称数据至数据库失败！',0);

  PzmcSpeedButtonClick(nil);  //刷新数据显示
  MDataForm.PMManagerADOQuery.EnableControls;
end;

procedure TDataManagerForm.DelPMSpeedButtonClick(Sender: TObject);
begin
  if MainForm.PshowMessage('提示','是否真的要删除下面所选择的数据行？',1) then
  begin
    try
      With MDataForm.PMManagerADOQuery do
      begin
        DisableControls;
        De

首页 上一页 4 5 6 7 8 9 下一页 尾页 7/9/9