|
3.2 客户信息界面与代码设计实现 http://www.paper51.com unit Ucustom; paper51.com interface copyright paper51.com uses 内容来自论文无忧网 www.paper51.com Windows, Messages, SysUtils, Variants,Classes, Graphics, Controls, Forms, 内容来自论文无忧网 www.paper51.com Dialogs, ComCtrls, StdCtrls, ExtCtrls,Buttons, Grids, DBGrids, ImgList, 内容来自论文无忧网 www.paper51.com Menus, Mask, DBCtrls; 内容来自www.paper51.com
type 内容来自www.paper51.com TfrmCustomer = class(TForm) 内容来自www.paper51.com
Panel2: TPanel; copyright paper51.com
Splitter1: TSplitter; paper51.com GroupBox2: TGroupBox; 内容来自论文无忧网 www.paper51.com GroupBox3: TGroupBox; 内容来自www.paper51.com bbtnNew: TBitBtn; copyright paper51.com bbtnModify: TBitBtn; copyright paper51.com bbtnDel: TBitBtn; paper51.com bbtnExit: TBitBtn; copyright paper51.com ImageList1: TImageList; 内容来自论文无忧网 www.paper51.com GroupBox4: TGroupBox; 内容来自www.paper51.com DBGrid3: TDBGrid; 内容来自www.paper51.com PopupMenu1: TPopupMenu; paper51.com A1: TMenuItem; copyright paper51.com B1: TMenuItem; copyright paper51.com C1: TMenuItem; http://www.paper51.com N5: TMenuItem; 内容来自论文无忧网 www.paper51.com
N6: TMenuItem; http://www.paper51.com N8: TMenuItem; 内容来自www.paper51.com GroupBox5: TGroupBox; paper51.com DBGrid1: TDBGrid; 内容来自www.paper51.com GroupBox1: TGroupBox; http://www.paper51.com TreeView1: TTreeView; 内容来自论文无忧网 www.paper51.com HeaderControl1:THeaderControl; 内容来自论文无忧网 www.paper51.com ComboBox1: TComboBox; paper51.com
Edit8: TEdit; http://www.paper51.com
DBEdit4: TDBEdit; 内容来自论文无忧网 www.paper51.com DBEdit9: TDBEdit; copyright paper51.com DBGrid2: TDBGrid; paper51.com bbtnShowAll: TBitBtn; copyright paper51.com procedurebbtnNewClick(Sender: TObject); http://www.paper51.com procedure bbtnModifyClick(Sender:TObject); paper51.com procedurebbtnExitClick(Sender: TObject); copyright paper51.com procedure FormClose(Sender:TObject; var Action: TCloseAction); 内容来自www.paper51.com procedureComboBox1DropDown(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedure FormShow(Sender:TObject); paper51.com procedure TreeView1Click(Sender:TObject); copyright paper51.com procedureComboBox1Change(Sender: TObject); paper51.com procedure N1Click(Sender:TObject); paper51.com procedure N2Click(Sender:TObject); http://www.paper51.com procedure N3Click(Sender:TObject); copyright paper51.com procedure N9Click(Sender:TObject); 内容来自论文无忧网 www.paper51.com procedure bbtnDelClick(Sender:TObject); copyright paper51.com procedure A1Click(Sender:TObject); paper51.com
procedure B1Click(Sender:TObject); 内容来自论文无忧网 www.paper51.com procedure C1Click(Sender:TObject); copyright paper51.com
procedure N6Click(Sender:TObject); paper51.com procedure N7Click(Sender:TObject); copyright paper51.com procedureDBGrid2DblClick(Sender: TObject); copyright paper51.com
procedureDBGrid1DblClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedurebbtnShowAllClick(Sender: TObject); paper51.com private http://www.paper51.com { Private declarations } copyright paper51.com public 内容来自论文无忧网 www.paper51.com { Public declarations } http://www.paper51.com
end; copyright paper51.com var 内容来自www.paper51.com frmCustomer: TfrmCustomer; 内容来自www.paper51.com
implementation 内容来自www.paper51.com uses MyData, Ufamily,Uconnact, UtodayWorkRecord, UcustomerAdd, http://www.paper51.com UcustomerUpdate; 内容来自www.paper51.com {$R *.dfm} http://www.paper51.com procedureTfrmCustomer.bbtnNewClick(Sender: TObject); 内容来自www.paper51.com begin copyright paper51.com frmCustomerAdd.Show; http://www.paper51.com end; paper51.com procedureTfrmCustomer.bbtnModifyClick(Sender: TObject); 内容来自www.paper51.com begin copyright paper51.com
if self.DBGrid1.DataSource.DataSet.IsEmptythen copyright paper51.com
begin 内容来自论文无忧网 www.paper51.com
ShowMessage('没有要修改的记录，请选择记录后再试！'); paper51.com Exit; copyright paper51.com end paper51.com
else http://www.paper51.com begin http://www.paper51.com frmCustomerUpdate.Show; http://www.paper51.com end; http://www.paper51.com end; 内容来自论文无忧网 www.paper51.com procedureTfrmCustomer.bbtnExitClick(Sender: TObject); 内容来自www.paper51.com begin 内容来自论文无忧网 www.paper51.com
close; 内容来自论文无忧网 www.paper51.com end; http://www.paper51.com procedureTfrmCustomer.FormClose(Sender: TObject; http://www.paper51.com var Action: TCloseAction); paper51.com
begin 内容来自论文无忧网 www.paper51.com Action:=caFree; copyright paper51.com
end; paper51.com procedureTfrmCustomer.ComboBox1DropDown(Sender: TObject); 内容来自www.paper51.com
begin paper51.com ComboBox1.Items.Clear; copyright paper51.com with dm.AQCustName do http://www.paper51.com begin paper51.com close; http://www.paper51.com
sql.Clear; 内容来自论文无忧网 www.paper51.com sql.Add('select distinct DeptNamefrom Customers'); paper51.com open; 内容来自www.paper51.com
first; http://www.paper51.com
while not Eof do 内容来自论文无忧网 www.paper51.com begin copyright paper51.com
ComboBox1.Items.Add(FieldValues['DeptName']); http://www.paper51.com
next; 内容来自www.paper51.com
end; paper51.com
end; 内容来自论文无忧网 www.paper51.com end; 内容来自www.paper51.com procedureTfrmCustomer.FormShow(Sender: TObject); http://www.paper51.com var 内容来自www.paper51.com node1,node2 :TTreeNode; 内容来自论文无忧网 www.paper51.com secoder :string; http://www.paper51.com first:string; 内容来自论文无忧网 www.paper51.com kind:string ; http://www.paper51.com begin copyright paper51.com ComboBox1.Text :=''; 内容来自论文无忧网 www.paper51.com TreeView1.Items.Clear; paper51.com
with dm.AQCustName do paper51.com begin 内容来自www.paper51.com close; 内容来自论文无忧网 www.paper51.com sql.Clear; 内容来自论文无忧网 www.paper51.com sql.Add('select distinctIntension from Customers'); copyright paper51.com
open; paper51.com end; 内容来自www.paper51.com dm.AQCustName.First; 内容来自www.paper51.com while not dm.AQCustName.Eof do paper51.com
begin 内容来自www.paper51.com first:=dm.AQCustName.fieldbyname('Intension').AsString; 内容来自论文无忧网 www.paper51.com node1:=treeview1.Items.AddChild(nil,first); 内容来自www.paper51.com
node1.ImageIndex :=0; paper51.com node1.SelectedIndex :=0; http://www.paper51.com
node1.StateIndex :=-1; paper51.com kind:=first; http://www.paper51.com with dm.AQDeptName do copyright paper51.com begin 内容来自www.paper51.com close; paper51.com sql.Clear; 内容来自论文无忧网 www.paper51.com sql.Add('selectdistinct DeptName from Customers where Intension='''+kind+''''); 内容来自论文无忧网 www.paper51.com open; 内容来自www.paper51.com end; 内容来自论文无忧网 www.paper51.com dm.AQDeptName.First; 内容来自论文无忧网 www.paper51.com while not dm.AQDeptName.Eofdo 内容来自www.paper51.com
begin copyright paper51.com secoder:=dm.AQDeptName.fieldbyname('DeptName').AsString; http://www.paper51.com node2:=treeview1.Items.AddChild(node1,secoder); http://www.paper51.com node2.ImageIndex:=1; http://www.paper51.com node2.SelectedIndex :=1; paper51.com node2.StateIndex:=-1; paper51.com dm.AQDeptName.Next; 内容来自论文无忧网 www.paper51.com
end; paper51.com
dm.AQCustName.Next; 内容来自论文无忧网 www.paper51.com end; 内容来自论文无忧网 www.paper51.com end; 内容来自论文无忧网 www.paper51.com
|