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

    unit MRKHFK;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ComCtrls, DB, ImgList, Grids, DBGrids, ToolWin,
      ExtCtrls, inifiles;
    
    type
      TFRM_KHFK = class(TForm)
        Panel2: TPanel;
        ToolBar1: TToolBar;
        ToolButton1: TToolButton;
        ToolButton2: TToolButton;
        ToolButton3: TToolButton;
        ToolButton4: TToolButton;
        ToolButton5: TToolButton;
        ToolButton6: TToolButton;
        ToolButton7: TToolButton;
        ToolButton8: TToolButton;
        ToolButton9: TToolButton;
        ToolButton10: TToolButton;
        ToolButton11: TToolButton;
        ToolButton12: TToolButton;
        ToolButton13: TToolButton;
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        Panel1: TPanel;
        TabSheet2: TTabSheet;
        GroupBox1: TGroupBox;
        DBGrid1: TDBGrid;
        ImageList1: TImageList;
        DataSource1: TDataSource;
        Label1: TLabel;
        Edit1: TEdit;
        Label2: TLabel;
        Edit2: TEdit;
        Label3: TLabel;
        Label4: TLabel;
        DateTimePicker1: TDateTimePicker;
        Label5: TLabel;
        Edit4: TEdit;
        Label6: TLabel;
        Edit5: TEdit;
        Label7: TLabel;
        Label8: TLabel;
        Memo1: TMemo;
        ComboBox1: TComboBox;
        ComboBox2: TComboBox;
        procedure FormShow(Sender: TObject);
        procedure ToolButton1Click(Sender: TObject);
        procedure ToolButton2Click(Sender: TObject);
        procedure ToolButton3Click(Sender: TObject);
        procedure ToolButton4Click(Sender: TObject);
        procedure ToolButton5Click(Sender: TObject);
        procedure ToolButton8Click(Sender: TObject);
        procedure ToolButton9Click(Sender: TObject);
        procedure ToolButton10Click(Sender: TObject);
        procedure ToolButton11Click(Sender: TObject);
        procedure ToolButton13Click(Sender: TObject);
        procedure ToolButton6Click(Sender: TObject);
        procedure DBGrid1CellClick(Column: TColumn);
        procedure FormCreate(Sender: TObject);
        procedure DateTimePicker1Change(Sender: TObject);
        procedure Edit4KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ComboBox2Change(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FRM_KHFK: TFRM_KHFK;
      tb : integer;
    implementation
      uses DATA, MRKHFK_CX;
    {$R *.dfm}
    
    procedure TFRM_KHFK.FormShow(Sender: TObject);
    var
      ini : Tinifile;
      ssp : string;
    begin
      ssp := '客户反馈';
      ini:=Tinifile.Create('c:\cc.ini');
      ini.WriteString('one',datetimetostr(now),ssp);
      ini.Free;
      with database.ADO_KHFK do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_Client_khfk');
        open;
      end;
      tb := 0;
      combobox1.Clear;
      combobox2.Clear;
      with database.ADO_bb do
      begin
        close;
        sql.Clear;
        sql.Add('select distinct khxx_mc from tb_khxx');
        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('khxx_mc').AsString));
          database.ADO_bb.Next;
        end;
      end;
    
      with database.ADO_bb do
      begin
        close;
        sql.Clear;
        sql.Add('select distinct khmyd_myd from tb_Client_khmyd');
        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('khmyd_myd').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;
      if database.ADO_KHFK.RecordCount>0 then
      begin;
        edit1.Text := database.ADO_KHFK.fieldbyname('khfk_id').AsString;
        edit2.Text := database.ADO_KHFK.fieldbyname('khfk_fkbt').AsString;
        combobox1.Text := database.ADO_KHFK.fieldbyname('khfk_khmc').AsString;
        edit4.Text := database.ADO_KHFK.fieldbyname('khfk_fknr').AsString;
        edit5.Text := database.ADO_KHFK.fieldbyname('khfk_fkslr').AsString;
        combobox2.Text := database.ADO_KHFK.fieldbyname('khfk_khmyd').AsString;
        memo1.Text := database.ADO_KHFK.fieldbyname('khfk_bz').AsString;
    
        with database.ADO_KHFK do
        begin
          close;
          sql.Clear;
          sql.Add('SELECT * FROM tb_Client_khfk');
          open;
        end;
        if database.ADO_KHFK.RecordCount<1 then
        begin
          DateTimePicker1.Date := now();
        end
        else
        begin
          DateTimePicker1.Date := database.ADO_KHFK.fieldbyname('khfk_fkrq').AsDateTime;
        end;
      end
      else
      begin
        edit1.Clear;
        edit2.Clear;
        combobox1.Text := '';
        edit4.Clear;
        edit5.Clear;
        combobox2.Text := '';
        memo1.Clear;
        DateTimePicker1.Date := now();
    
      end;
    end;
    
    procedure TFRM_KHFK.ToolButton1Click(Sender: TObject);
    var
       s : string;
       i : integer;
    begin
      if PageControl1.ActivePage = tabsheet1 then
      begin
        i := 1;
        ToolButton4.Enabled := true;
        ToolButton5.Enabled := true;
        ToolButton2.Enabled := false;
        TabSheet1.Enabled := true;
        tb := 1;
        with database.ADO_KHFK do
        begin
          close;
          sql.Clear;
          sql.Add('select * from tb_Client_khfk order by khfk_id');
          open;
        end;
        s := 'FK'+formatdatetime('yyyymm',now());
        if database.ADO_KHFK.RecordCount<1 then
        begin
          edit1.Text := s+'00000'+inttostr(i);
        end
        else
        begin
          database.ADO_KHFK.Last;
          i := strtoint(copy(database.ADO_KHFK.fieldbyname('khfk_id').AsString,9,6));
          edit1.Text := s+formatfloat('000000',i+1);
        end;
    
        edit2.Clear;
        combobox1.Text := '';
        edit4.Clear;
        edit5.Clear;
        combobox2.Text := '';
        DateTimePicker1.Date := now();
        memo1.Clear;
        edit2.SetFocus;
      end;
    
    end;
    
    procedure TFRM_KHFK.ToolButton2Click(Sender: TObject);
    begin
      ToolButton4.Enabled := true;
      ToolButton5.Enabled := true;
      ToolButton1.Enabled := false;
      TabSheet1.Enabled := true;
      tb := 2;
      edit2.SetFocus
    end;
    
    procedure TFRM_KHFK.ToolButton3Click(Sender: TObject);
    begin
      if (database.ADO_KHFK.FieldByName('khfk_id').AsString = '') then
      begin
        showmessage('无法删除，客户反馈表已经为空。');
      end
      else
      begin
        if application.MessageBox('真的要删除该条记录吗？','提示',mb_yesno) = idyes then
        begin
          database.ADO_KHFK.Delete;
          database.ADO_KHFK.First;
          edit1.Text := database.ADO_KHFK.fieldbyname('khfk_id').AsString;
          edit2.Text := database.ADO_KHFK.fieldbyname('khfk_fkbt').AsString;
          combobox1.Text := database.ADO_KHFK.fieldbyname('khfk_khmc').AsString;
          edit4.Text := database.ADO_KHFK.fieldbyname('khfk_fknr').AsString;
          edit5.Text := database.ADO_KHFK.fieldbyname('khfk_fkslr').AsString;
          combobox2.Text := database.ADO_KHFK.fieldbyname('khfk_khmyd').AsString;
          memo1.Text := database.ADO_KHFK.fieldbyname('khfk_bz').AsString;
    
          with database.ADO_KHFK do
          begin
            close;
            sql.Clear;
            sql.Add('SELECT * FROM tb_Client_khfk');
            open;
          end;
          if database.ADO_KHFK.RecordCount<1 then
          begin
            DateTimePicker1.Date := now();
          end
          else
          begin
            DateTimePicker1.Date := database.ADO_KHFK.fieldbyname('khfk_fkrq').AsDateTime;
          end;
          ToolButton8.Enabled := true;
          ToolButton9.Enabled := true;
          ToolButton10.Enabled := true;
          ToolButton11.Enabled := true;
          
        end;
      end;
    
    end;
    
    procedure TFRM_KHFK.ToolButton4Click(Sender: TObject);
    begin
      if (edit1.Text = '')or(edit2.Text = '')or(combobox1.Text = '')
         or(edit5.Tex

上一篇：mrkfxx.pas
下一篇：白色姜花，略微开了