论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 代写论文

A450办公自动化系统

3.2           客户信息界面与代码设计实现

内容来自论文无忧网 snowings.com

unit Ucustom;

内容来自snowings.com

interface

copyright paper51.com

uses paper51.com

  Windows, Messages, SysUtils, Variants,Classes, Graphics, Controls, Forms, 内容来自论文无忧网 snowings.com

  Dialogs, ComCtrls, StdCtrls, ExtCtrls,Buttons, Grids, DBGrids, ImgList, copyright paper51.com

  Menus, Mask, DBCtrls;

http://snowings.com

type

copyright paper51.com

  TfrmCustomer = class(TForm)

内容来自snowings.com

    Panel2: TPanel;

内容来自snowings.com

    Splitter1: TSplitter; 内容来自论文无忧网 snowings.com

    GroupBox2: TGroupBox; copyright paper51.com

    GroupBox3: TGroupBox; 内容来自snowings.com

    bbtnNew: TBitBtn; http://snowings.com

    bbtnModify: TBitBtn; 内容来自论文无忧网 snowings.com

    bbtnDel: TBitBtn; 内容来自snowings.com

    bbtnExit: TBitBtn; 内容来自论文无忧网 snowings.com

    ImageList1: TImageList;

内容来自论文无忧网 snowings.com

    GroupBox4: TGroupBox;

paper51.com

    DBGrid3: TDBGrid; 内容来自论文无忧网 snowings.com

    PopupMenu1: TPopupMenu; http://snowings.com

    A1: TMenuItem;

http://snowings.com

    B1: TMenuItem;

paper51.com

    C1: TMenuItem; http://snowings.com

    N5: TMenuItem; 内容来自论文无忧网 snowings.com

    N6: TMenuItem;

http://snowings.com

    N8: TMenuItem;

http://snowings.com

    GroupBox5: TGroupBox; copyright paper51.com

    DBGrid1: TDBGrid; 内容来自snowings.com

    GroupBox1: TGroupBox;

http://snowings.com

    TreeView1: TTreeView; copyright paper51.com

    HeaderControl1:THeaderControl;

内容来自snowings.com

    ComboBox1: TComboBox;

内容来自snowings.com

    Edit8: TEdit;

copyright paper51.com

    DBEdit4: TDBEdit;

paper51.com

    DBEdit9: TDBEdit; paper51.com

    DBGrid2: TDBGrid;

paper51.com

    bbtnShowAll: TBitBtn;

http://snowings.com

    procedurebbtnNewClick(Sender: TObject);

http://snowings.com

    procedure bbtnModifyClick(Sender:TObject); copyright paper51.com

    procedurebbtnExitClick(Sender: TObject); copyright paper51.com

    procedure FormClose(Sender:TObject; var Action: TCloseAction); http://snowings.com

    procedureComboBox1DropDown(Sender: TObject); http://snowings.com

    procedure FormShow(Sender:TObject); paper51.com

    procedure TreeView1Click(Sender:TObject);

paper51.com

    procedureComboBox1Change(Sender: TObject); copyright paper51.com

    procedure N1Click(Sender:TObject); 内容来自论文无忧网 snowings.com

    procedure N2Click(Sender:TObject);

paper51.com

    procedure N3Click(Sender:TObject);

copyright paper51.com

    procedure N9Click(Sender:TObject);

内容来自论文无忧网 snowings.com

    procedure bbtnDelClick(Sender:TObject);

内容来自snowings.com

    procedure A1Click(Sender:TObject);

内容来自snowings.com

    procedure B1Click(Sender:TObject); paper51.com

    procedure C1Click(Sender:TObject);

paper51.com

    procedure N6Click(Sender:TObject);

内容来自snowings.com

    procedure N7Click(Sender:TObject);

内容来自snowings.com

    procedureDBGrid2DblClick(Sender: TObject);

copyright paper51.com

    procedureDBGrid1DblClick(Sender: TObject); http://snowings.com

    procedurebbtnShowAllClick(Sender: TObject);

paper51.com

  private 内容来自snowings.com

    { Private declarations } 内容来自snowings.com

  public copyright paper51.com

    { Public declarations } 内容来自snowings.com

  end;

http://snowings.com

var

copyright paper51.com

  frmCustomer: TfrmCustomer; copyright paper51.com

implementation

内容来自snowings.com

uses MyData, Ufamily,Uconnact, UtodayWorkRecord, UcustomerAdd, http://snowings.com

  UcustomerUpdate; 内容来自论文无忧网 snowings.com

{$R *.dfm} 内容来自snowings.com

procedureTfrmCustomer.bbtnNewClick(Sender: TObject); paper51.com

begin

http://snowings.com

  frmCustomerAdd.Show; 内容来自snowings.com

end; http://snowings.com

procedureTfrmCustomer.bbtnModifyClick(Sender: TObject);

内容来自snowings.com

begin

http://snowings.com

  if self.DBGrid1.DataSource.DataSet.IsEmptythen copyright paper51.com

   begin

内容来自snowings.com

    ShowMessage('没有要修改的记录,请选择记录后再试!');

内容来自论文无忧网 snowings.com

    Exit; 内容来自论文无忧网 snowings.com

   end

http://snowings.com

  else http://snowings.com

  begin

内容来自论文无忧网 snowings.com

    frmCustomerUpdate.Show;

内容来自snowings.com

  end; http://snowings.com

end;

http://snowings.com

procedureTfrmCustomer.bbtnExitClick(Sender: TObject);

paper51.com

begin

内容来自论文无忧网 snowings.com

  close;

内容来自论文无忧网 snowings.com

end; copyright paper51.com

procedureTfrmCustomer.FormClose(Sender: TObject; paper51.com

  var Action: TCloseAction); 内容来自论文无忧网 snowings.com

begin

copyright paper51.com

  Action:=caFree;

内容来自snowings.com

end; paper51.com

procedureTfrmCustomer.ComboBox1DropDown(Sender: TObject); http://snowings.com

begin 内容来自snowings.com

  ComboBox1.Items.Clear;

copyright paper51.com

  with dm.AQCustName do

内容来自论文无忧网 snowings.com

  begin copyright paper51.com

    close;

paper51.com

    sql.Clear;

内容来自论文无忧网 snowings.com

    sql.Add('select distinct DeptNamefrom Customers');

copyright paper51.com

    open; http://snowings.com

    first; 内容来自论文无忧网 snowings.com

    while not Eof do copyright paper51.com

    begin

内容来自snowings.com

     ComboBox1.Items.Add(FieldValues['DeptName']);

paper51.com

      next; paper51.com

    end; copyright paper51.com

  end;

内容来自论文无忧网 snowings.com

end; 内容来自论文无忧网 snowings.com

procedureTfrmCustomer.FormShow(Sender: TObject);

paper51.com

var

copyright paper51.com

   node1,node2 :TTreeNode;

copyright paper51.com

   secoder :string;

paper51.com

   first:string;

paper51.com

   kind:string ; 内容来自论文无忧网 snowings.com

begin paper51.com

  ComboBox1.Text :='';

copyright paper51.com

  TreeView1.Items.Clear;

copyright paper51.com

  with dm.AQCustName do copyright paper51.com

  begin

paper51.com

    close;

paper51.com

    sql.Clear;

内容来自snowings.com

    sql.Add('select distinctIntension from Customers'); 内容来自论文无忧网 snowings.com

    open; http://snowings.com

  end;

paper51.com

  dm.AQCustName.First;

copyright paper51.com

  while not dm.AQCustName.Eof do http://snowings.com

  begin

copyright paper51.com

    first:=dm.AQCustName.fieldbyname('Intension').AsString;

copyright paper51.com

   node1:=treeview1.Items.AddChild(nil,first); paper51.com

    node1.ImageIndex :=0; copyright paper51.com

    node1.SelectedIndex :=0;

paper51.com

    node1.StateIndex :=-1; 内容来自论文无忧网 snowings.com

    kind:=first;

内容来自论文无忧网 snowings.com

    with dm.AQDeptName do copyright paper51.com

    begin 内容来自snowings.com

      close; 内容来自snowings.com

      sql.Clear;

内容来自snowings.com

      sql.Add('selectdistinct DeptName from Customers where Intension='''+kind+'''');

copyright paper51.com

      open;

paper51.com

    end; http://snowings.com

    dm.AQDeptName.First; copyright paper51.com

    while not dm.AQDeptName.Eofdo paper51.com

    begin

内容来自论文无忧网 snowings.com

     secoder:=dm.AQDeptName.fieldbyname('DeptName').AsString; 内容来自论文无忧网 snowings.com

      node2:=treeview1.Items.AddChild(node1,secoder);

copyright paper51.com

      node2.ImageIndex:=1; 内容来自snowings.com

     node2.SelectedIndex :=1; 内容来自snowings.com

      node2.StateIndex:=-1; copyright paper51.com

     dm.AQDeptName.Next; 内容来自snowings.com

    end;

copyright paper51.com

    dm.AQCustName.Next; http://snowings.com

  end;

内容来自论文无忧网 snowings.com

end;

内容来自snowings.com

------分隔线----------------------------
联系方式