mrtt.pas

客户管理系统主要是以客户为基础

unit MRTT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ImgList, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin, inifiles,
  ExtCtrls;

type
  TFRM_TT = class(TForm)
    Panel2: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolButton13: TToolButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    ImageList1: TImageList;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    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 Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton13Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_TT: TFRM_TT;
  tb : integer;
implementation
  uses data;
{$R *.dfm}

procedure TFRM_TT.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_TT do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * FROM tb_bdwxx');
    open;
  end;
  if database.ADO_TT.RecordCount>0 then
  begin
    database.ADO_TT.First;
    edit1.Text := database.ADO_tt.fieldbyname('bdwxx_mc').AsString;
    edit2.Text := database.ADO_tt.fieldbyname('bdwxx_lxdz').AsString;
    edit3.Text := database.ADO_tt.fieldbyname('bdwxx_yb').AsString;
    edit4.Text := database.ADO_tt.fieldbyname('bdwxx_cz').AsString;
    edit5.Text := database.ADO_tt.fieldbyname('bdwxx_frdb').AsString;
    edit6.Text := database.ADO_tt.fieldbyname('bdwxx_lxdh').AsString;
    edit7.Text := database.ADO_tt.fieldbyname('bdwxx_khyh').AsString;
    edit8.Text := database.ADO_tt.fieldbyname('bdwxx_yhzh').AsString;
    edit9.Text := database.ADO_tt.fieldbyname('bdwxx_wz').AsString;
    edit10.Text := database.ADO_tt.fieldbyname('bdwxx_nsh').AsString;

  end
  else
  begin
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    edit5.Clear;
    edit6.Clear;
    edit7.Clear;
    edit8.Clear;
    edit9.Clear;
    edit10.Clear;
    edit1.SetFocus;
  end;
  tb := 0;
end;

procedure TFRM_TT.ToolButton1Click(Sender: TObject);
var
  i : integer;
  s : string;
begin
  i := 1;
  with database.ADO_tt do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * FROM tb_bdwxx order by bdwxx_mc');
    open;
  end;
  tb := 1;
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
  edit5.Clear;
  edit6.Clear;
  edit7.Clear;
  edit8.Clear;
  edit9.Clear;
  edit10.Clear;
  edit1.SetFocus;
  ToolButton2.Enabled := false;
  ToolButton4.Enabled := true;
  ToolButton5.Enabled := true;
  edit1.SetFocus;

end;

procedure TFRM_TT.ToolButton2Click(Sender: TObject);
begin
  tb := 2;
  database.ADO_tt.Edit;
  ToolButton1.Enabled := false;
  ToolButton4.Enabled := true;
  ToolButton5.Enabled := true;
  edit1.SetFocus;
end;

procedure TFRM_TT.ToolButton3Click(Sender: TObject);
begin
  if (database.ADO_tt.FieldByName('bdwxx_mc').AsString = '') then
  begin
    showmessage('无法删除，本单位信息表已经为空。');
  end
  else
  begin
    if application.MessageBox('真的要删除该条记录吗？','提示',mb_yesno) = idyes then
    begin
      database.ADO_tt.Delete;
      database.ADO_tt.First;
      edit1.Text := database.ADO_tt.fieldbyname('bdwxx_mc').AsString;
      edit2.Text := database.ADO_tt.fieldbyname('bdwxx_lxdz').AsString;
      edit3.Text := database.ADO_tt.fieldbyname('bdwxx_yb').AsString;
      edit4.Text := database.ADO_tt.fieldbyname('bdwxx_cz').AsString;
      edit5.Text := database.ADO_tt.fieldbyname('bdwxx_frdb').AsString;
      edit6.Text := database.ADO_tt.fieldbyname('bdwxx_lxdh').AsString;
      edit7.Text := database.ADO_tt.fieldbyname('bdwxx_khyh').AsString;
      edit8.Text := database.ADO_tt.fieldbyname('bdwxx_yhzh').AsString;
      edit9.Text := database.ADO_tt.fieldbyname('bdwxx_wz').AsString;
      edit10.Text := database.ADO_tt.fieldbyname('bdwxx_nsh').AsString;
    end;
  end;
end;

procedure TFRM_TT.ToolButton4Click(Sender: TObject);
begin


  if tb = 1 then
  begin
    if database.ADO_tt.fieldbyname('bdwxx_mc').AsString='' then
    begin
      database.ADO_TT.Append;
      database.ADO_tt.fieldbyname('bdwxx_mc').AsString := edit1.Text;
      database.ADO_tt.fieldbyname('bdwxx_lxdz').AsString := edit2.Text;
      database.ADO_tt.fieldbyname('bdwxx_yb').AsString := edit3.Text;
      database.ADO_tt.fieldbyname('bdwxx_cz').AsString := edit4.Text;
      database.ADO_tt.fieldbyname('bdwxx_frdb').AsString := edit5.Text;
      database.ADO_tt.fieldbyname('bdwxx_lxdh').AsString := edit6.Text;
      database.ADO_tt.fieldbyname('bdwxx_khyh').AsString := edit7.Text;
      database.ADO_tt.fieldbyname('bdwxx_yhzh').AsString := edit8.Text;
      database.ADO_tt.fieldbyname('bdwxx_wz').AsString := edit9.Text;
      database.ADO_tt.fieldbyname('bdwxx_nsh').AsString := edit10.Text;
      database.ADO_tt.Post;
    end
    else
      showmessage('只能添加一条信息。');
  end;
  if tb = 2 then
  begin
    database.ADO_TT.Edit;
    database.ADO_tt.fieldbyname('bdwxx_mc').AsString := edit1.Text;
    database.ADO_tt.fieldbyname('bdwxx_lxdz').AsString := edit2.Text;
    database.ADO_tt.fieldbyname('bdwxx_yb').AsString := edit3.Text;
    database.ADO_tt.fieldbyname('bdwxx_cz').AsString := edit4.Text;
    database.ADO_tt.fieldbyname('bdwxx_frdb').AsString := edit5.Text;
    database.ADO_tt.fieldbyname('bdwxx_lxdh').AsString := edit6.Text;
    database.ADO_tt.fieldbyname('bdwxx_khyh').AsString := edit7.Text;
    database.ADO_tt.fieldbyname('bdwxx_yhzh').AsString := edit8.Text;
    database.ADO_tt.fieldbyname('bdwxx_wz').AsString := edit9.Text;
    database.ADO_tt.fieldbyname('bdwxx_nsh').AsString := edit10.Text;
    database.ADO_tt.Post;
  end;
  with database.ADO_tt do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * FROM tb_bdwxx');
    open;
  end;

  database.ADO_tt.First;
  edit1.Text := database.ADO_tt.fieldbyname('bdwxx_mc').AsString;
  edit2.Text := database.ADO_tt.fieldbyname('bdwxx_lxdz').AsString;
  edit3.Text := database.ADO_tt.fieldbyname('bdwxx_yb').AsString;
  edit4.Text := database.ADO_tt.fieldbyname('bdwxx_cz').AsString;
  edit5.Text := database.ADO_tt.fieldbyname('bdwxx_frdb').AsString;
  edit6.Text := database.ADO_tt.fieldbyname('bdwxx_lxdh').AsString;
  edit7.Text := database.ADO_tt.fieldbyname('bdwxx_khyh').AsString;
  edit8.Text := database.ADO_tt.fieldbyname('bdwxx_yhzh').AsString;
  edit9.Text := database.ADO_tt.fieldbyname('bdwxx_wz').AsString;
  edit10.Text := database.ADO_tt.fieldbyname('bdwxx_nsh').AsString;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;

end;
procedure TFRM_TT.ToolButton5Click(Sender: TObject);
begin
  with database.ADO_tt do
  begin
    close;
    sql.Clear;
    sql.Add('SELECT * FROM tb_bdwxx');
    open;
  end;

  database.ADO_tt.First;
  edit1.Text := database.ADO_tt.fieldbyname('bdwxx_mc').AsString;
  edit2.Text := database.ADO_tt.fieldbyname('bdwxx_lxdz').AsString;
  edit3.Text := database.ADO_tt.fieldbyname('bdwxx_yb').AsString;
  edit4.Text := database.ADO_tt.fieldbyname('bdwxx_cz').AsString;
  edit5.Text := database.ADO_tt.fieldbyname('bdwxx_frdb').AsString;
  edit6.Text := database.ADO_tt.fieldbyname('bdwxx_lxdh').AsString;
  edit7.Text := database.ADO_tt.fieldbyname('bdwxx_khyh').AsString;
  edit8.Text := database.ADO_tt.fieldbyname('bdwxx_yhzh').AsString;
  edit9.Text := database.ADO_tt.fieldbyname('bdwxx_wz').AsString;
  edit10.Text := database.ADO_tt.fieldbyname('bdwxx_nsh').AsString;
  ToolButton1.Enabled := true;
  ToolButton2.Enabled := true;
  ToolButton4.Enabled := false;
  ToolButton5.Enabled := false;
end;

procedure TFRM_TT.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit2.SetFocus;
end;

procedure TFRM_TT.ToolButton13Click(Sender: TObject);
begin
  close;
end;

procedure TFRM_TT.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit3.SetFocus;
end;

procedure TFRM_TT.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit4.SetFocus;
end;

procedure TFRM_TT.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit5.SetFocus;
end;

procedure TFRM_TT.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit6.SetFocus;
end;

procedure TFRM_TT.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit7.SetFocus;
end;

procedure TFRM_TT.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit8.SetFocus;
end;

procedure TFRM_TT.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit9.SetFocus;
end;

procedure TFRM_TT.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    edit10.SetFocus;
end;

end.