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

    unit MRKHTS;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ImgList, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin,
      ExtCtrls, inifiles;
    
    type
      TFRM_KHTS = 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;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Label10: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        DateTimePicker1: TDateTimePicker;
        Edit3: TEdit;
        Edit4: TEdit;
        Edit5: TEdit;
        Memo1: TMemo;
        Memo2: TMemo;
        ComboBox2: TComboBox;
        ComboBox1: 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 DBGrid1CellClick(Column: TColumn);
        procedure ComboBox1Change(Sender: TObject);
        procedure DateTimePicker1Change(Sender: TObject);
        procedure Edit3KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit4KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ComboBox2Change(Sender: TObject);
        procedure ToolButton6Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FRM_KHTS: TFRM_KHTS;
      tb : integer;
    implementation
      uses DATA, MRKHTS_CX;
    {$R *.dfm}
    
    procedure TFRM_KHTS.FormShow(Sender: TObject);
    var
      ini : Tinifile;
      ssp : string;
    begin
      ssp := '客户投拆';
      ini:=Tinifile.Create('c:\cc.ini');
      ini.WriteString('one',datetimetostr(now),ssp);
      ini.Free;
      tb := 0;
      combobox1.Clear;
      combobox2.Clear;
      with database.ADO_bb do
      begin
        close;
        sql.Clear;
        sql.Add('select * from tb_khxx');
        open;
      end;
      if database.ADO_bb.RecordCount>0 then
      begin
        while not database.ADO_bb.Eof do
        begin
          combobox1.Items.Add(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_KHTS do
      begin
        close;
        sql.Clear;
        sql.Add('SELECT * FROM tb_Client_khts');
        open;
      end;
      if database.ADO_KHTS.RecordCount>0 then
      begin;
        edit1.Text := database.ADO_KHTS.fieldbyname('khts_id').AsString;
        edit2.Text := database.ADO_KHTS.fieldbyname('khts_tsr').AsString;
        edit3.Text := database.ADO_KHTS.fieldbyname('khts_tszt').AsString;
        edit4.Text := database.ADO_KHTS.fieldbyname('khts_tsnr').AsString;
        edit5.Text := database.ADO_KHTS.fieldbyname('khts_tsslr').AsString;
        combobox1.Text := database.ADO_KHTS.fieldbyname('khts_qymc').AsString;
        combobox2.Text := database.ADO_KHTS.fieldbyname('khts_khmyd').AsString;
        memo1.Text := database.ADO_KHTS.fieldbyname('khts_clbf').AsString;
        memo2.Text := database.ADO_KHTS.fieldbyname('khts_bz').AsString;
        with database.ADO_KHTS do
        begin
          close;
          sql.Clear;
          sql.Add('SELECT * FROM tb_Client_khts');
          open;
        end;
        if database.ADO_KHTS.RecordCount<1 then
        begin
          DateTimePicker1.Date := now();
        end
        else
        begin
          DateTimePicker1.Date := database.ADO_KHTS.fieldbyname('khts_tsrq').AsDateTime;
        end;
      end
      else
      begin
        edit1.Clear;
        edit2.Clear;
        edit3.Clear;
        edit4.Clear;
        e