📄 main.pas

📁 再发一个个人管理的代码
💻 PAS
字号:
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids,
  Buttons, ToolWin;

type
  Tmain_form = class(TForm)
    GroupBox1: TGroupBox;
    Edit12: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Edit14: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Button2: TButton;
    adoconn: TADOConnection;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_form: Tmain_form;

implementation

{$R *.dfm}

procedure Tmain_form.Button1Click(Sender: TObject);
begin

   ADOQuery1.Append;
   ADOQuery1.Edit;
   ADOQuery1.FieldByName('姓名').AsString:=Edit12.Text;
   ADOQuery1.FieldByName('性别').AsString:=ComboBox1.Text;
   ADOQuery1.FieldByName('昵称').AsString:=Edit14.Text;
   ADOQuery1.FieldByName('生日').AsDateTime:=DateTimePicker1.Date;
   ADOQuery1.FieldByName('移动电话').AsString:=Edit16.Text;
   ADOQuery1.FieldByName('QQ').AsString:=Edit17.Text;
   ADOQuery1.FieldByName('邮政编码').AsString:=Edit18.Text;
   ADOQuery1.FieldByName('家庭电话').AsString:=Edit19.Text;
   ADOQuery1.FieldByName('家庭住址').AsString:=Edit20.Text;
   ADOQuery1.FieldByName('工作单位').AsString:=Edit21.Text;
   ADOQuery1.FieldByName('单位电话').AsString:=Edit22.Text;
   ADOQuery1.Post;
 

   Edit12.Text:='';
   Edit14.Text:='';
   Edit16.Text:='';
   Edit17.Text:='';
   Edit18.Text:='';
   Edit19.Text:='';
   Edit20.Text:='';
   Edit21.Text:='';
   Edit22.Text:='';
   GroupBox2.Caption:='浏览联系人信息'+'           '+'共 '+inttostr(ADOQuery1.RecordCount)+' 条记录';
   end;

procedure Tmain_form.FormShow(Sender: TObject);
begin
   ADOQuery1.Active:=false;
   ADOQuery1.SQL.Text:='select * from bj';
   Edit12.Text:='';
   Edit14.Text:='';
   Edit16.Text:='';
   Edit17.Text:='';
   Edit18.Text:='';
   Edit19.Text:='';
   Edit20.Text:='';
   Edit21.Text:='';
   Edit22.Text:='';
   ADOQuery1.Active:=true;
   GroupBox2.Caption:='浏览联系人信息'+'           '+'共 '+inttostr(ADOQuery1.RecordCount)+' 条记录';
end;

procedure Tmain_form.Button3Click(Sender: TObject);
begin
  ADOQuery1.Prior;
end;

procedure Tmain_form.Button4Click(Sender: TObject);
begin
   ADOQuery1.Next;
end;

procedure Tmain_form.SpeedButton1Click(Sender: TObject);
begin
   ADOQuery1.First;
   Edit12.Text:=ADOQuery1.FieldByName('姓名').AsString;
   ComboBox1.Text:=ADOQuery1.FieldByName('性别').AsString;
   Edit14.Text:=ADOQuery1.FieldByName('昵称').AsString;
   DateTimePicker1.Date:=ADOQuery1.FieldByName('生日').AsDateTime;
   Edit16.Text:= ADOQuery1.FieldByName('移动电话').AsString;
   Edit17.Text:= ADOQuery1.FieldByName('QQ').AsString;
   Edit18.Text:= ADOQuery1.FieldByName('邮政编码').AsString;
   Edit19.Text:= ADOQuery1.FieldByName('家庭电话').AsString;
   Edit20.Text:= ADOQuery1.FieldByName('家庭住址').AsString;
   Edit21.Text:= ADOQuery1.FieldByName('工作单位').AsString;
   Edit22.Text:= ADOQuery1.FieldByName('单位电话').AsString;
end;

procedure Tmain_form.SpeedButton2Click(Sender: TObject);
begin
   ADOQuery1.Prior;
     Edit12.Text:=ADOQuery1.FieldByName('姓名').AsString;
   ComboBox1.Text:=ADOQuery1.FieldByName('性别').AsString;
   Edit14.Text:=ADOQuery1.FieldByName('昵称').AsString;
   DateTimePicker1.Date:=ADOQuery1.FieldByName('生日').AsDateTime;
   Edit16.Text:= ADOQuery1.FieldByName('移动电话').AsString;
   Edit17.Text:= ADOQuery1.FieldByName('QQ').AsString;
   Edit18.Text:= ADOQuery1.FieldByName('邮政编码').AsString;
   Edit19.Text:= ADOQuery1.FieldByName('家庭电话').AsString;
   Edit20.Text:= ADOQuery1.FieldByName('家庭住址').AsString;
   Edit21.Text:= ADOQuery1.FieldByName('工作单位').AsString;
   Edit22.Text:= ADOQuery1.FieldByName('单位电话').AsString;
end;

procedure Tmain_form.SpeedButton3Click(Sender: TObject);
begin
  ADOQuery1.Next;
    Edit12.Text:=ADOQuery1.FieldByName('姓名').AsString;
   ComboBox1.Text:=ADOQuery1.FieldByName('性别').AsString;
   Edit14.Text:=ADOQuery1.FieldByName('昵称').AsString;
   DateTimePicker1.Date:=ADOQuery1.FieldByName('生日').AsDateTime;
   Edit16.Text:= ADOQuery1.FieldByName('移动电话').AsString;
   Edit17.Text:= ADOQuery1.FieldByName('QQ').AsString;
   Edit18.Text:= ADOQuery1.FieldByName('邮政编码').AsString;
   Edit19.Text:= ADOQuery1.FieldByName('家庭电话').AsString;
   Edit20.Text:= ADOQuery1.FieldByName('家庭住址').AsString;
   Edit21.Text:= ADOQuery1.FieldByName('工作单位').AsString;
   Edit22.Text:= ADOQuery1.FieldByName('单位电话').AsString;
end;

procedure Tmain_form.SpeedButton4Click(Sender: TObject);
begin
   ADOQuery1.Last;
   Edit12.Text:=ADOQuery1.FieldByName('姓名').AsString;
   ComboBox1.Text:=ADOQuery1.FieldByName('性别').AsString;
   Edit14.Text:=ADOQuery1.FieldByName('昵称').AsString;
   DateTimePicker1.Date:=ADOQuery1.FieldByName('生日').AsDateTime;
   Edit16.Text:= ADOQuery1.FieldByName('移动电话').AsString;
   Edit17.Text:= ADOQuery1.FieldByName('QQ').AsString;
   Edit18.Text:= ADOQuery1.FieldByName('邮政编码').AsString;
   Edit19.Text:= ADOQuery1.FieldByName('家庭电话').AsString;
   Edit20.Text:= ADOQuery1.FieldByName('家庭住址').AsString;
   Edit21.Text:= ADOQuery1.FieldByName('工作单位').AsString;
   Edit22.Text:= ADOQuery1.FieldByName('单位电话').AsString;
end;

procedure Tmain_form.SpeedButton5Click(Sender: TObject);
begin

     if ADOQuery1.RecordCount<>0 then
     begin
     if application.MessageBox('真的删除信息?','警告信息',mb_yesno)=mrYes then
     ADOQuery1.Delete;
     end
     else
     Application.MessageBox('已经没有信息了!','提示信息',mb_ok);
     GroupBox2.Caption:='浏览联系人信息'+'           '+'共 '+inttostr(ADOQuery1.RecordCount)+' 条记录';

end;

procedure Tmain_form.SpeedButton6Click(Sender: TObject);
begin
   ADOQuery1.edit;
   ADOQuery1.FieldByName('姓名').AsString:=Edit12.Text;
   ADOQuery1.FieldByName('性别').AsString:=ComboBox1.Text;
   ADOQuery1.FieldByName('昵称').AsString:=Edit14.Text;
   ADOQuery1.FieldByName('生日').AsDateTime:=DateTimePicker1.Date;
   ADOQuery1.FieldByName('移动电话').AsString:=Edit16.Text;
   ADOQuery1.FieldByName('QQ').AsString:=Edit17.Text;
   ADOQuery1.FieldByName('邮政编码').AsString:=Edit18.Text;
   ADOQuery1.FieldByName('家庭电话').AsString:=Edit19.Text;
   ADOQuery1.FieldByName('家庭住址').AsString:=Edit20.Text;
   ADOQuery1.FieldByName('工作单位').AsString:=Edit21.Text;
   ADOQuery1.FieldByName('单位电话').AsString:=Edit22.Text;
   ADOQuery1.post;

   Edit12.Text:='';
   Edit14.Text:='';
   Edit16.Text:='';
   Edit17.Text:='';
   Edit18.Text:='';
   Edit19.Text:='';
   Edit20.Text:='';
   Edit21.Text:='';
   Edit22.Text:='';
end;

procedure Tmain_form.Button2Click(Sender: TObject);
begin
   Close;
end;                                                            

procedure Tmain_form.FormCreate(Sender: TObject);
begin
  adoconn.ConnectionString:='Provider=Microsoft.Jet.OlEDB.4.0;Data Source='+ExtractFilePath(ParamStr(0))+'\zl.mdb;User ID=admin;Password=;Persist security Info=False';
end;



end.
💿 文件大小 46 K
👤 上传用户 kelvinitc
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -