【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“MRFK_ZCX.pas”一文，供大家参考学习

    unit MRFK_ZCX;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ImgList, ComCtrls, ToolWin, ExtCtrls, Grids, DBGrids,
      StdCtrls, inifiles;
    
    type
      TFRM_FK_ZCX = class(TForm)
        Panel1: TPanel;
        ToolBar1: TToolBar;
        ToolButton1: TToolButton;
        ToolButton2: TToolButton;
        ToolButton3: TToolButton;
        ToolButton4: TToolButton;
        ToolButton5: TToolButton;
        ToolButton6: TToolButton;
        ToolButton7: TToolButton;
        ToolButton8: TToolButton;
        ToolButton9: TToolButton;
        ImageList1: TImageList;
        DataSource1: TDataSource;
        GroupBox1: TGroupBox;
        RadioButton1: TRadioButton;
        RadioButton2: TRadioButton;
        ComboBox1: TComboBox;
        ComboBox2: TComboBox;
        RadioButton3: TRadioButton;
        ComboBox3: TComboBox;
        GroupBox2: TGroupBox;
        DBGrid1: TDBGrid;
        procedure FormShow(Sender: TObject);
        procedure ToolButton6Click(Sender: TObject);
        procedure ToolButton7Click(Sender: TObject);
        procedure ToolButton9Click(Sender: TObject);
        procedure ToolButton1Click(Sender: TObject);
        procedure ToolButton2Click(Sender: TObject);
        procedure ToolButton3Click(Sender: TObject);
        procedure ToolButton4Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure RadioButton1Click(Sender: TObject);
        procedure RadioButton2Click(Sender: TObject);
        procedure RadioButton3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FRM_FK_ZCX: TFRM_FK_ZCX;
    
    implementation
      USES DATA;
    {$R *.dfm}
    
    procedure TFRM_FK_ZCX.FormShow(Sender: TObject);
    var
      ini : Tinifile;
      ssp : string;
    begin
      ssp := '客户反馈查询';
      ini:=Tinifile.Create('c:\cc.ini');
      ini.WriteString('one',datetimetostr(now),ssp);
      ini.Free;
      combobox1.Clear;
      combobox2.Clear;
      combobox3.Clear;
      with database.ADO_bb do   //反馈标题
      begin
        close;
        sql.Clear;
        sql.Add('select distinct khfk_fkbt from tb_Client_khfk');
        open;
      end;
      if database.ADO_bb.RecordCount>0 then
      begin
        while not database.ADO_bb.Eof do
        begin
          combobox1.Items.Add(Trim(database.ADO_bb.fieldbyname('khfk_fkbt').AsString));
          database.ADO_bb.Next;
        end;
      end;
    
      with database.ADO_bb do   //客户名称
      begin
        close;
        sql.Clear;
        sql.Add('select distinct khfk_khmc from tb_Client_khfk');
        open;
      end;
      if database.ADO_bb.RecordCount>0 then
      begin
        while not database.ADO_bb.Eof do
        begin
          combobox2.Items.Add(Trim(database.ADO_bb.fieldbyname('khfk_khmc').AsString));
          database.ADO_bb.Next;
        end;
      end;
    
      with database.ADO_bb do   //反馈意见受理人
      begin
        close;
        sql.Clear;
        sql.Add('select distinct khfk_fkslr from tb_Client_khfk');
        open;
      end;
      if database.ADO_bb.RecordCount>0 then
      begin
        while not database.ADO_bb.Eof do
        begin
          combobox3.Items.Add(Trim(database.ADO_bb.fieldbyname('khfk_fkslr').AsString));
          database.ADO_bb.Next;
        end;
      end;                         
    
      with database.ADO_KHFK do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_Client_khfk');
        open;
      end;
    end;
    
    procedure TFRM_FK_ZCX.ToolButton6Click(Sender: TObject);
    var
      s,p : string;
    begin
      p := '';
      s := 'aa';
      if RadioButton1.Checked = true then
      begin
        p := 'khfk_fkbt';
        s := trim(combobox1.Text);
      end;
    
      if RadioButton2.Checked = true then
      begin
        p := 'khfk_khmc';
        s := trim(combobox2.Text);
      end;
    
      if RadioButton3.Checked = true then
      begin
        p := 'khfk_fkslr';
        s := trim(combobox3.Text);
      end;
    
      if (s <> 'aa')and(s <> '') then
      begin
        with database.ADO_KHFK do
        begin
          close;
          sql.Clear;
          sql.Add('select * from tb_Client_khfk where '+p+'='+''''+s+'''');
          open;
        end;
      end
      else
      begin
        showmessage('查询条件不能为空。');
      end;
    
    end;
    
    procedure TFRM_FK_ZCX.ToolButton7Click(Sender: TObject);
    begin
      with database.ADO_KHFK do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_Client_khfk');
        open;
      end;
    
    end;
    
    procedure TFRM_FK_ZCX.ToolButton9Click(Sender: TObject);
    begin
      close;
    end;
    
    procedure TFRM_FK_ZCX.ToolButton1Click(Sender: TObject);
    begin
      database.ADO_KHFK.First;
      ToolButton1.Enabled := false;
      ToolButton2.Enabled := false;
      ToolButton3.Enabled := true;
      ToolButton4.Enabled := true;
    end;
    
    procedure TFRM_FK_ZCX.ToolButton2Click(Sender: TObject);
    begin
      database.ADO_KHFK.Prior;
      if not database.ADO_KHFK.Bof then
      begin
        ToolButton1.Enabled := true;
        ToolButton2.Enabled := true;
        ToolButton3.Enabled := true;
        ToolButton4.Enabled := true;
      end
      else
      begin
        ToolButton1.Enabled := false;
        ToolButton2.Enabled := false;
        ToolButton3.Enabled := true;
        ToolButton4.Enabled := true;
      end;
    
    end;
    
    procedure TFRM_FK_ZCX.ToolButton3Click(Sender: TObject);
    begin
      database.ADO_KHFK.Next;
      if not database.ADO_KHFK.Eof then
      begin
        ToolButton1.Enabled := true;
        ToolButton2.Enabled := true;
        ToolButton3.Enabled := true;
        ToolButton4.Enabled := true;
      end
      else
      begin
        ToolButton1.Enabled := true;
        ToolButton2.Enabled := true;
        ToolButton3.Enabled := false;
        ToolButton4.Enabled := false;
      end;
    end;
    
    procedure TFRM_FK_ZCX.ToolButton4Click(Sender: TObject);
    begin
      database.ADO_KHFK.Last;
      ToolButton1.Enabled := true;
      ToolButton2.Enabled := true;
      ToolButton3.Enabled := false;
      ToolButton4.Enabled := false;
    end;
    
    procedure TFRM_FK_ZCX.FormCreate(Sender: TObject);
    begin
      database.ADO_KHFK.Active := false;
      database.ADO_KHFK.Active := true;
    end;
    
    procedure TFRM_FK_ZCX.RadioButton1Click(Sender: TObject);
    begin
      combobox2.Text := '';
      combobox3.Text := '';
    
    end;
    
    procedure TFRM_FK_ZCX.RadioButton2Click(Sender: TObject);
    begin
      combobox1.Text := '';
      combobox3.Text := '';
    end;
    
    procedure TFRM_FK_ZCX.RadioButton3Click(Sender: TObject);
    begin
      combobox2.Text := '';
      combobox1.Text := '';
    end;
    
    end.
    

上一篇：MRERP_ZJM.pas
下一篇：不放弃终有希望