unit2.~pas

这是一个简单Delphi应用开发实例

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ExtDlgs, XPMan,db,
  BusinessSkinForm;

type
  Taddmsn = class(TForm)
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Memo1: TMemo;
    ComboBox2: TComboBox;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Label12: TLabel;
    Edit8: TEdit;
    SpeedButton1: TSpeedButton;
    OpenPictureDialog1: TOpenPictureDialog;
    XPManifest1: TXPManifest;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    Procedure BeComeClear();
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addmsn: Taddmsn;

implementation

uses Unit1, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure Taddmsn.FormShow(Sender: TObject);
begin
with Main.ADOQuery6 do
  begin
    Main.ADOQuery6.Close;
    Main.ADOQuery6.SQL.Clear;
    Main.ADOQuery6.SQL.Add('select Distinct 类型 From addtype'); //选择在字段类型中不重复数据
    Main.ADOQuery6.Open;
  end;
  While not Main.ADOQuery6.Eof do
  begin
    Combobox2.Items.Add(Main.ADOQuery6.Fields[0].value);//将不重复的数据加入到Combobox2(类型)中
    Main.ADOQuery6.Next;
  end;
end;

procedure Taddmsn.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  BeComeClear;//调用BeComeClear过程，使用所有的文本组件内容清空
end;

procedure Taddmsn.BitBtn1Click(Sender: TObject);//添加数据
var
  SQLStr:string;
begin
  If (Edit1.Text = '') and (Edit2.Text = '') or (Combobox2.Text = '') then
  begin
    Application.MessageBox('请输入完整数据信息！','添加出错',0);
    Edit1.SetFocus;
    exit;
  end;
  with Main.ADOQuery1 do
    begin
      Main.ADOQuery1.Close;
      Main.ADOQuery1.SQL.Clear;
      SQlStr := 'insert into msn(编号,姓名,性别,出生日期,民族,家庭电话,手机号码,QQ号码,E_mail,备注,类型,照片)'+
      'values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:L)';
      Main.ADOQuery1.SQL.Add(SQLStr);
      Main.ADOQuery1.Parameters.ParamByName('a').Value := Trim(Edit1.Text);
      Main.ADOQuery1.Parameters.ParamByName('b').Value := Trim(Edit2.text);
      Main.ADOQuery1.Parameters.ParamByName('c').Value := Combobox1.text;
      Main.ADOQuery1.Parameters.ParamByName('d').Value := DateToStr(DatetimePicker1.Date);
      Main.ADOQuery1.Parameters.ParamByName('e').Value := Trim(Edit3.text);
      Main.ADOQuery1.Parameters.ParamByName('f').Value := Trim(Edit4.text);
      Main.ADOQuery1.Parameters.ParamByName('g').Value := Trim(Edit5.text);
      Main.ADOQuery1.Parameters.ParamByName('h').Value := Trim(Edit6.text);
      Main.ADOQuery1.Parameters.ParamByName('i').Value := Trim(Edit7.text);
      Main.ADOQuery1.Parameters.ParamByName('k').Value := Combobox2.Text;
      Main.ADOQuery1.Parameters.ParamByName('j').Value := Memo1.Lines.Text;
      Main.ADOQuery1.Parameters.ParamByName('L').Value := Trim(Edit8.Text);
      Main.ADOQuery1.ExecSQL;
      if Edit8.Text = '' then
      ShowMessage('没有为新添加的记录指定图片！');
      MessageDlg('添加成功！',mtwarning,[mbyes],0);
    end;
    with Main.ADOQuery1 do
    begin
      Main.ADOQuery1.Close;
      Main.ADOQuery1.SQL.Clear;
      Main.ADOQuery1.SQL.Add('Select * from msn');
      Main.ADOQuery1.Open;
      with Main.ADOQuery3 do
        begin
          Main.ADOQuery3.Close;
          Main.ADOQuery3.SQL.Clear;
          Main.ADOQuery3.SQL.Add('Select * From msn');
          Main.ADOQuery3.Open;
          Main.TreeView1.Items.Clear;
          Main.TreeView1.Refresh;
          Main.TreeviewReFresh;
        end;
    end;
    addmsn.Close;
end;
procedure Taddmsn.SpeedButton1Click(Sender: TObject);
begin
  if (OpenPictureDialog1.Execute) and (OpenPictureDialog1.FileName <> '') then
  begin
    Edit8.Text := OpenPictureDialog1.FileName;
  end
  else
    MessageDlg('没有选择图片',mtwarning,[mbok],0);
end;

procedure Taddmsn.BeComeClear;//自定义过程BeComeClear，将所有的文本组件内容清空
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
  Memo1.Clear;
  Combobox2.Clear;
end;

procedure Taddmsn.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  beep;
  MessageDlg('不能够输入其他类型',mtError,[mbok],0);
  key := #0;
end;

procedure Taddmsn.SpeedButton2Click(Sender: TObject);
begin
  addtypes.ShowModal;
end;

end.