评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

布匹出口单管理系统[开题报告＋论文＋源代码＋(7)

2013-06-09 01:10 wColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
    procedure KHListDBGridDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    function SaveClientName(ClientName :string):boolean;
    function SaveBreedName(pzmc, width, mz, kc, cf :string):boolean;
  end;

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'); （转载自中国科教评价网www.nseac.com ）
      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