客户关系系统源代码

1、procedure TFrmMai n.miLogi nClick(Se nder: TObject); begin FrmLogi n.ShowModal; en d; procedure TFrmMa in. miSupportClick(Se nder: TObject); begin FrmSupt.ShowModal; en d; procedure TFrmMai n. miQueryClick(Se nder: TObject); begin FrmQuery.ShowModal; en d; procedure TFrmMa in .miExitClick(Se nder: T

2、Object); begin close; en d; procedure TFrmMai n. Timer1Timer(Se nder: TObject); begin if (Iabel1.visible=true) the n Iabel1.visible:=false else label1.visible:=true; en d; procedure TFrmMa in.mi MusicClick(Se nder: TObject); begin Mediaplayer1.Close ; Mediaplayer1.FileName :=; ope ndialog1.Execute ;

3、 Mediaplayer1.FileName :=ope ndialog1.FileName ; Mediaplayer1.Ope n ; Mediaplayer1. Play ; en d; procedure TFrmMai n.miHelpClick(Se nder: TObject); begin FrmHelp.ShowModal; en d; If If If If If If If If If If If If If If If If If If If If If If If II II II II II II II II II II II II II II II II II I

4、I II II II II II procedure TFrmLogi n.Bt nO KClick(Se nder: TObject); var CmdStr:Stri ng; UsrType:i nteger; ff:word; begin 口令 ADOQryUser.SQL.Clear; CmdStr:=select * from Users where 用户名=+QuotedStr(EdtUsrName.Text)+and =+QuotedStr(EdtPass.Text); ADOQryUser.SQL.Add(CmdStr); ADOQryUser.Ope n; if ADOQry

5、User.RecordCou nt0 the n begin UsrType:=ADOQryUser.FieldList2.Asl nteger; if UsrType=0 the n begin FrmMai n.miSupport.E nabled:=true; FrmMai n.miQuery.E nabled:=true; end else begin FrmMa in .miSupport.E nabled:=false; FrmMai n.miQuery.E nabled:=true; end end else if(messagedlg(输入的用户名与口令不对！ 是否要重输？ ,

6、mtinformation,mbyes,mbno,0)=mryes) then begin self.free; Applicati on .CreateForm(TFrmLog in, FrmLogi n); FrmLogi n. showmodal; end else close; en d; procedure TFrmLogi n.Bt nExitClick(Se nder: TObject); begin close; en d; # procedure TFrmSupt.TabSheetI nputC on textPopup(Se nder: TObject; MousePos:

7、 TPoint; var Han dled: Boolea n); begin DBNvgt.VisibleButto ns:= nbFirst, nbPrior, nbNext, nbLast, nbIn sert, nbRefresh en d; procedure TFrmSupt.TabSheetUpdateC on textPopup(Se nder: TObject; MousePos: TPoint; var Han dled: Boolea n); begin DBNvgt.VisibleButto ns:= nbFirst ,n bPrior, nbNext, nbLast

8、,n bRefresh en d; procedure TFrmSupt.TabSheetDeleteC on textPopup(Se nder: TObject; MousePos: TPoint; var Han dled: Boolea n); begin DBNvgt.VisibleButto ns:= nbFirst, nbPrior, nbNext, nbLast, nbDelete, nbRefresh en d; procedure TFrmSupt.FormCreate(Sender: TObject); begin DMCU.ADOTblCu.Active:=true;

9、en d; procedure TFrmSupt.FormClose(Se nder: TObject; var Actio n: TCloseActio n); begin DMCU.ADOTblCu.Active:=false; en d; procedure TFrmSupt.B tn ReturnClick(Se nder: TObject); begin close; en d; If If If If If If If If If If If If If If If If If If If If If If If If II II II II II II II II II II I

10、I II II II II II II II II II II II II II procedure TFrmQuery.rdgClick(Se nder: TObject); begin ADOQryCo ndtio n.Close; ADOQryCo ndtio n.SQL.CIear; case rdg.I tem In dex of 0: begin ADOQryCo ndtio n.SQL.Add(select客户编号 dblcb.KeyField :=客户编号； dblcb.ListField :=客户编号； en d; 1: begin ADOQryCo ndtio n.SQL.

11、Add(select所在省份 dblcb.KeyField :=所在省份； dblcb.ListField :=所在省份； en d; 2: begin ADOQryCo ndtio n.SQL.Add(select所在城市 dblcb.KeyField :=所在城市； dblcb.ListField :=所在城市； en d; 3: begin ADOQryCo ndtio n.SQL.Add(select公司名称 dblcb.KeyField :=公司名称； dblcb.ListField :=公司名称； en d; en d; ADOQryCo ndtio n.Active:=true;

12、 en d; from customers); from customers); from customers); from customers); procedure TFrmQuery.dblcbClick(Se nder: TObject); var CID:Stri ng; begin ADOQryCu.Close; ADOQryCu.SQL.Clear; case rdg.l tem In dex of O:CID:=select * from Customers where 1:CID:=select * from Customers where 2:CID:=select * f

13、rom Customers where 3:CID:=select * from Customers where en d; ADOQryCu.SQL.Add(CID); ADOQryCu.Active:=true; en d; 客户编号=+QuotedStr(dblcb.Text); 所在省份=+QuotedStr(dblcb.Text); 所在城市=+QuotedStr(dblcb.Text); 公司名称=+QuotedStr(dblcb.Text); procedure TFrmQuery.Bt nReturnClick(Se nder: TObject); begin Close; e

14、n d; # procedure TMusic.FormCreate(Se nder: TObject); begin Timer1.E nabled:=false; Pan el1.Alig n:=alClie nt; 音乐； FilterComboBox1.Filter:=所有文件 |*.*|mp3 音乐 |*.mp3|wav 音乐 |*.wav|mid 音乐 |*.mid; /设置文件过滤器 MediaPlayer1.Display:=Pa nel2;/面板用于显示多媒体文件 en d; procedure TMusic.Timer1Timer(Se nder: TObject); be

15、gin ScrollBar1. Positio n:=MediaPlayer1. Positio n;滚动条显示播放进度 en d; procedure TMusic.MediaPlayer1Click(Se nder: TObject; Butt on: TMPB tn Type; var DoDefault: Boolea n); begin MediaPlayer1 .P ause;/ 暂停播放 MediaPlayer1. Positio n:=ScrollBar1 .P ositio n;控制播放进度 MediaPlayer1. Play;/ 继续播放 en d; 获得文件名 显示文件

16、名 打开多媒体文件 /启动定时器 /设置滚动条参数 procedure TMusic.FileListBox1Click(Se nder: TObject); begin MediaPlayer1.File name:=FileListBox1.FileName; Memo1.Text:=MediaPlayer1.File name; MediaPlayer1.Ope n; Timer1.E nabled:=true; ScrollBar1.Mi n:=0; ScrollBar1.Max:=MediaPlayer1 .L e ngth; end; 父亲的格局决定家庭的方向 一个家庭的福气运道，

17、不是凭空出现的，它是家庭成员共同努力得来的。 家庭要想和谐兴旺，首先要走对方向，父亲的格局就决定着家庭的发展方向。 曾国藩曾说：谋大事者首重格局”心中格局的大小，决定了眼光是否长远，眼光是否长远又决定了事物的成败 家庭的发展不是一个一蹴而就的过程，家庭需要经营，需要规划。 由于社会分工的不同，父亲作为家庭中的男性，承担着家庭领导者的职能，是家庭权威”的代表。作为家庭列车的火车头，父亲的眼光要远，格局要大，只有父亲的格局大，才能确保家 庭的发展方向不出错。 老话说 不是一家人，不进一家门 ”人的一生中有大部分时间都在家庭中度过，观念、思想等都会通过家人间潜移默化的影响来传递。如果父亲有一个大格局，那在他的妻子、后辈子孙都 会受到好的影响。 在家庭生活中，父亲有大格局，就是在家庭遭遇困难或变故时，不退缩，