【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-F_User_Part.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit F_User_Part;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, CheckLst, jpeg, Buttons, ImgList,
DB, ADODB;
type
PCRMRecord = ^TCRMRecord;
TCRMRecord = record
ID:string;
end;
TFrm_User_Part = class(TForm)
Panel1: TPanel;
Image1: TImage;
Image2: TImage;
Panel2: TPanel;
Image3: TImage;
TreeView1: TTreeView;
TreeView2: TTreeView;
TreeView3: TTreeView;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Panel3: TPanel;
Image8: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Panel4: TPanel;
Image9: TImage;
Label9: TLabel;
Label10: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ListView1: TListView;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Image10: TImage;
ImageList1: TImageList;
CheckBox1: TCheckBox;
ImageList2: TImageList;
Label11: TLabel;
CheckBox2: TCheckBox;
Label12: TLabel;
Label13: TLabel;
procedure FormShow(Sender: TObject);
Procedure WMSysCommand(Var message : TMessage) ; Message WM_SYSCOMMAND; //窗体最大化、还原的消息
procedure Label2Click(Sender: TObject);
procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image5MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image7MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image5MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image7MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label3Click(Sender: TObject);
procedure Label6Click(Sender: TObject);
procedure Label7Click(Sender: TObject);
procedure Image10MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image10MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label4MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label6MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label7MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label7MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label8MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label8MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TreeView3Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure TreeView3GetImageIndex(Sender: TObject; Node: TTreeNode);
procedure TreeView3GetSelectedIndex(Sender: TObject; Node: TTreeNode);
procedure TreeView3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure TreeView2GetImageIndex(Sender: TObject; Node: TTreeNode);
procedure TreeView2GetSelectedIndex(Sender: TObject; Node: TTreeNode);
procedure Image10Click(Sender: TObject);
procedure TreeView2Click(Sender: TObject);
procedure TreeView1Click(Sender: TObject);
procedure TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
procedure TreeView1GetSelectedIndex(Sender: TObject; Node: TTreeNode);
procedure TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure TreeView2Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure Label8Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Image7Click(Sender: TObject);
procedure CheckBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormClose(Sender: TObject; var Action: TCloseAction); //改变文本的颜色
private
procedure ChangeColor(Lab : TLabel; C : TColor);
procedure myshow(TreeV : TTreeView; ADOQuer,ADOQuer1 : TADOQuery; S,NTable,NField : String; N : TTreeNode; P : Integer);
procedure NotUser(N : Integer; Ima : TImage);
procedure ReplaceIma(Img : TImage; N : Integer; SDir : String); //设置权限时的按钮样式
procedure Uimage(N : Integer; Ima : TImage); //在对用户角色和用户进行添加、修改时的窗体显示状态
procedure DarbarismFrm; //窗体原始风格
Procedure MaxFrm; //窗体最大化风络
Procedure TreeViewShow; //在TTreeView组个中显示角色和用户
Function FindNodeDate(Table, Field, Text : String):Boolean;
FuncTion GetPartID(Text:string;TypeID:integer):string; //在添加和修改角色时,获取其编号值
procedure SetPart(ID:string;Text:String;TypeID:integer); //更新tb_Part_Table表中的记录
procedure SetUser(ID, PID, UText, PText : String; TypeID: integer; B : Boolean); //更新tb_Part_User表中的数据
Function GetUserID(Text:string;TypeID:integer): string; //获取用户表编号
procedure SetModel(Text, PID : String; Le : Integer);
function FindNode(TreeView: TTreeView; Text: string): boolean;
function GetZhuID(Text : String):String;
Function FintNodeCount(ID,Part_ID : String; N : Integer):Integer;
procedure BatchADDNode(ID,Part_ID : string; N : Integer);
procedure DeleteOdd(ID,Part_ID : String);
procedure DeleteBatch(ID,Part_ID : String);
procedure IsUse(Check : TCheckBox; SUser : String; N : Integer);
public
end;
var
Frm_Us
上一篇:
F_StordOdd.pas
下一篇:
扛起年轻化大旗,哈弗F系玩转行业新风潮