home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Msflexcool2042841162007.psc / MSFLEXCOOL / Form1.frm < prev    next >
Text File  |  2007-01-16  |  15KB  |  471 lines
  1. VERSION 5.00
  2. Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "MsFlexCool"
  5.    ClientHeight    =   5205
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   11880
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   5205
  12.    ScaleWidth      =   11880
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin VB.PictureBox menos 
  15.       AutoRedraw      =   -1  'True
  16.       AutoSize        =   -1  'True
  17.       BorderStyle     =   0  'None
  18.       Height          =   195
  19.       Index           =   1
  20.       Left            =   6600
  21.       Picture         =   "Form1.frx":0000
  22.       ScaleHeight     =   195
  23.       ScaleWidth      =   240
  24.       TabIndex        =   7
  25.       Top             =   0
  26.       Visible         =   0   'False
  27.       Width           =   240
  28.    End
  29.    Begin VB.PictureBox mais 
  30.       AutoRedraw      =   -1  'True
  31.       AutoSize        =   -1  'True
  32.       BorderStyle     =   0  'None
  33.       Height          =   195
  34.       Index           =   0
  35.       Left            =   6360
  36.       Picture         =   "Form1.frx":0381
  37.       ScaleHeight     =   195
  38.       ScaleWidth      =   240
  39.       TabIndex        =   6
  40.       Top             =   0
  41.       Visible         =   0   'False
  42.       Width           =   240
  43.    End
  44.    Begin VB.PictureBox arrow 
  45.       AutoRedraw      =   -1  'True
  46.       AutoSize        =   -1  'True
  47.       BorderStyle     =   0  'None
  48.       Height          =   180
  49.       Index           =   0
  50.       Left            =   1920
  51.       Picture         =   "Form1.frx":0709
  52.       ScaleHeight     =   180
  53.       ScaleWidth      =   945
  54.       TabIndex        =   5
  55.       Top             =   240
  56.       Width           =   945
  57.    End
  58.    Begin VB.PictureBox arrow 
  59.       AutoRedraw      =   -1  'True
  60.       AutoSize        =   -1  'True
  61.       BorderStyle     =   0  'None
  62.       Height          =   180
  63.       Index           =   1
  64.       Left            =   1920
  65.       Picture         =   "Form1.frx":0E4B
  66.       ScaleHeight     =   180
  67.       ScaleWidth      =   945
  68.       TabIndex        =   4
  69.       Top             =   0
  70.       Width           =   945
  71.    End
  72.    Begin VB.PictureBox cx 
  73.       AutoRedraw      =   -1  'True
  74.       AutoSize        =   -1  'True
  75.       BorderStyle     =   0  'None
  76.       Height          =   195
  77.       Index           =   0
  78.       Left            =   5760
  79.       Picture         =   "Form1.frx":158D
  80.       ScaleHeight     =   195
  81.       ScaleWidth      =   210
  82.       TabIndex        =   3
  83.       Top             =   0
  84.       Visible         =   0   'False
  85.       Width           =   210
  86.    End
  87.    Begin VB.PictureBox cx 
  88.       AutoRedraw      =   -1  'True
  89.       AutoSize        =   -1  'True
  90.       BorderStyle     =   0  'None
  91.       Height          =   195
  92.       Index           =   1
  93.       Left            =   6000
  94.       Picture         =   "Form1.frx":1A9F
  95.       ScaleHeight     =   195
  96.       ScaleWidth      =   210
  97.       TabIndex        =   2
  98.       Top             =   0
  99.       Visible         =   0   'False
  100.       Width           =   210
  101.    End
  102.    Begin VB.CommandButton Command1 
  103.       Caption         =   "LOAD FIRST"
  104.       BeginProperty Font 
  105.          Name            =   "MS Sans Serif"
  106.          Size            =   9.75
  107.          Charset         =   0
  108.          Weight          =   700
  109.          Underline       =   0   'False
  110.          Italic          =   0   'False
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       Height          =   375
  114.       Left            =   4560
  115.       TabIndex        =   1
  116.       Top             =   4440
  117.       Width           =   3015
  118.    End
  119.    Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
  120.       Height          =   3615
  121.       Left            =   240
  122.       TabIndex        =   0
  123.       Top             =   480
  124.       Width           =   11415
  125.       _ExtentX        =   20135
  126.       _ExtentY        =   6376
  127.       _Version        =   393216
  128.       Cols            =   21
  129.       FixedCols       =   0
  130.       BackColor       =   16777215
  131.       ForeColorFixed  =   0
  132.       BackColorSel    =   16777215
  133.       ForeColorSel    =   4194304
  134.       WordWrap        =   -1  'True
  135.       AllowUserResizing=   1
  136.       FormatString    =   $"Form1.frx":1FB1
  137.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  138.          Name            =   "Small Fonts"
  139.          Size            =   6.75
  140.          Charset         =   0
  141.          Weight          =   400
  142.          Underline       =   0   'False
  143.          Italic          =   0   'False
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.    End
  147.    Begin VB.Line Line1 
  148.       BorderWidth     =   3
  149.       Index           =   1
  150.       X1              =   670
  151.       X2              =   670
  152.       Y1              =   240
  153.       Y2              =   480
  154.    End
  155.    Begin VB.Line Line1 
  156.       BorderWidth     =   3
  157.       Index           =   0
  158.       X1              =   360
  159.       X2              =   360
  160.       Y1              =   240
  161.       Y2              =   480
  162.    End
  163.    Begin VB.Label Label1 
  164.       Caption         =   "Click here"
  165.       Height          =   255
  166.       Index           =   2
  167.       Left            =   240
  168.       TabIndex        =   10
  169.       Top             =   0
  170.       Width           =   735
  171.    End
  172.    Begin VB.Label Label1 
  173.       Caption         =   "transferred"
  174.       Height          =   255
  175.       Index           =   1
  176.       Left            =   3000
  177.       TabIndex        =   9
  178.       Top             =   0
  179.       Width           =   1935
  180.    End
  181.    Begin VB.Label Label1 
  182.       Caption         =   "used"
  183.       Height          =   255
  184.       Index           =   0
  185.       Left            =   3000
  186.       TabIndex        =   8
  187.       Top             =   240
  188.       Width           =   1935
  189.    End
  190. End
  191. Attribute VB_Name = "Form1"
  192. Attribute VB_GlobalNameSpace = False
  193. Attribute VB_Creatable = False
  194. Attribute VB_PredeclaredId = True
  195. Attribute VB_Exposed = False
  196. Public DB As DAO.Database
  197. Public RS As DAO.Recordset
  198. Public DBC As DAO.Database
  199. Public RSC As DAO.Recordset
  200. Dim valor1 As Double
  201. Dim valor2 As Double
  202. Dim valor3 As Double
  203. Dim valor4 As Double
  204. Dim valor5 As Double
  205. Dim add As Long
  206.  
  207.  
  208. Private Sub Command1_Click()
  209. valor1 = 0
  210. valor2 = 0
  211. valor3 = 0
  212. valor4 = 0
  213. valor5 = 0
  214.  
  215. MSFlexGrid1.Visible = False
  216. MSFlexGrid1.Redraw = False
  217. setarbd1 "orfix"
  218. setarbd "orfix"
  219. MSFlexGrid1.Rows = 1
  220. MSFlexGrid1.ColWidth(0) = mais(0).Width + 40
  221. MSFlexGrid1.ColWidth(2) = 0
  222. MSFlexGrid1.ColWidth(3) = 0
  223. For t = 1 To RS.RecordCount
  224. MSFlexGrid1.Col = 0
  225. If Len(RS("verba")) > 0 Then
  226. If Len(RS("valorinicial")) > 0 Then
  227. valor1 = valor1 + Format(RS("valorinicial"), "###,###,##0.00")
  228. End If
  229. If Len(RS("total")) > 0 Then
  230. valor3 = valor3 + Format(RS("total"), "###,###,##0.00")
  231. End If
  232. If Len(RS("saldoautorizado")) > 0 Then
  233. valor5 = valor5 + Format(RS("saldoautorizado"), "###,###,##0.00")
  234. End If
  235. MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
  236. MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
  237. Set MSFlexGrid1.CellPicture = mais(0)
  238. MSFlexGrid1.CellForeColor = &H40&
  239. MSFlexGrid1.CellPictureAlignment = 1
  240. MSFlexGrid1.RowHeight(MSFlexGrid1.Row) = 250
  241. MSFlexGrid1.CellFontSize = 6
  242. MSFlexGrid1.CellBackColor = &HFFFFFF  'color White
  243. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) = "+"
  244. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) = RS("numeracao")
  245. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 4) = RS("verba")
  246. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 5) = RS("item") & ""
  247. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 6) = RS("evento") & ""
  248. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 7) = RS("datap") & ""
  249. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 8) = RS("ncontrato") & ""
  250. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 9) = RS("prefixo") & ""
  251. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 10) = RS("nomedependencia") & ""
  252. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 11) = RS("uf") & ""
  253. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 12) = RS("prefdestino") & ""
  254. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 13) = RS("depdestino") & ""
  255. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 14) = RS("descricao") & ""
  256. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 15) = RS("valorinicial") & ""
  257. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 16) = RS("valorreman") & ""
  258. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 17) = RS("total") & ""
  259. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 18) = RS("valorcontratacao") & ""
  260. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 19) = RS("saldoautorizado") & ""
  261. MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 20) = RS("autorizadopor") & ""
  262. MSFlexGrid1.Col = 1
  263. Set MSFlexGrid1.CellPicture = cx(1)
  264. MSFlexGrid1.CellPictureAlignment = 1
  265. For t0 = 4 To MSFlexGrid1.Cols - 1
  266. MSFlexGrid1.Col = t0
  267. MSFlexGrid1.CellBackColor = &HFDE3EA 'color Blue
  268. Next t0
  269. End If
  270. RS.MoveNext
  271. Next t
  272.  
  273. For t1 = MSFlexGrid1.Rows To 1 Step -1
  274. If MSFlexGrid1.TextMatrix(t1 - 1, 4) <> "" Then
  275. add = MSFlexGrid1.RowSel
  276. RSC.FindFirst "vinculo like '" & MSFlexGrid1.TextMatrix(t1 - 1, 4) & "'"
  277. volte:
  278. If RSC.NoMatch = False Then
  279. MSFlexGrid1.AddItem field1 & vbTab, t1
  280. MSFlexGrid1.Row = t1
  281. MSFlexGrid1.RowHeight(t1) = 0
  282. MSFlexGrid1.CellPictureAlignment = 1
  283. MSFlexGrid1.CellFontSize = 6
  284. MSFlexGrid1.CellBackColor = &HFFFFFF  'color white
  285. MSFlexGrid1.TextMatrix(t1, 3) = RSC("numeracao")
  286. MSFlexGrid1.TextMatrix(t1, 4) = RSC("verba") & ""
  287. MSFlexGrid1.TextMatrix(t1, 5) = RSC("item") & ""
  288. MSFlexGrid1.TextMatrix(t1, 6) = RSC("evento") & ""
  289. MSFlexGrid1.TextMatrix(t1, 7) = RSC("datap") & ""
  290. MSFlexGrid1.TextMatrix(t1, 8) = RSC("ncontrato") & ""
  291. MSFlexGrid1.TextMatrix(t1, 9) = RSC("preforigem") & ""
  292. MSFlexGrid1.TextMatrix(t1, 10) = RSC("nomedependencia") & ""
  293. MSFlexGrid1.TextMatrix(t1, 11) = RSC("uf") & ""
  294. MSFlexGrid1.TextMatrix(t1, 12) = RSC("prefdestino") & ""
  295. MSFlexGrid1.TextMatrix(t1, 13) = RSC("depdestino") & ""
  296. MSFlexGrid1.TextMatrix(t1, 14) = RSC("descricao") & ""
  297. MSFlexGrid1.TextMatrix(t1, 15) = RSC("valorinicial") & ""
  298. If Len(RSC("valorreman")) > 0 Then
  299. MSFlexGrid1.TextMatrix(t1, 16) = RSC("valorreman")
  300. '------------------------------------ Start
  301. 'Creating for random info UTILIZADO/REMANEJADO
  302. Dim reandomizar As Byte
  303. reandomizar = CInt(Int((2 * Rnd()) + 1))
  304. If reandomizar = 1 Then
  305. MSFlexGrid1.TextMatrix(t1, 2) = "r" '< - Picture Remanejado
  306. Else
  307. MSFlexGrid1.TextMatrix(t1, 2) = ""  '< - Picture Utilizado
  308. End If
  309. End If
  310. '------------------------------------ End
  311. MSFlexGrid1.TextMatrix(t1, 17) = RSC("total") & ""
  312. MSFlexGrid1.TextMatrix(t1, 18) = RSC("valorcontratacao") & ""
  313. MSFlexGrid1.TextMatrix(t1, 19) = RSC("saldoautorizado") & ""
  314. MSFlexGrid1.TextMatrix(t1, 20) = RSC("autorizadopor") & ""
  315. '-----
  316. If Len(RSC("valorreman")) > 0 Then valor2 = valor2 + Format(RSC("valorreman"), "###,###,##0.00")
  317. If Len(RSC("valorcontratacao")) > 0 Then valor4 = valor4 + Format(RSC("valorcontratacao"), "###,###,##0.00")
  318. If Len(RSC("saldoautorizado")) > 0 Then valor5 = valor5 + Format(RSC("saldoautorizado"), "###,###,##0.00")
  319. '-----
  320. RSC.FindNext "vinculo like '" & MSFlexGrid1.TextMatrix(t1 - 1, 4) & "'"
  321. If RSC.NoMatch = False Then GoTo volte
  322. End If
  323. End If
  324. Next t1
  325. fechar
  326. '-----
  327. '-----
  328. MSFlexGrid1.Redraw = True
  329. MSFlexGrid1.Visible = True
  330. End Sub
  331.  
  332. Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
  333. If KeyAscii <> 27 And KeyAscii <> 13 Then
  334.     If KeyAscii = 8 Then
  335.       If Len(MSFlexGrid1.Text) <> 0 Then
  336.           MSFlexGrid1.Text = Mid(MSFlexGrid1.Text, 1, Len(MSFlexGrid1.Text) - 1)
  337.       End If
  338.     Else
  339.        MSFlexGrid1.Text = MSFlexGrid1.Text + Chr(KeyAscii)
  340.     End If
  341. Else
  342. MSFlexGrid1.AddItem "" & vbTab, MSFlexGrid1.RowSel
  343. End If
  344. End Sub
  345.  
  346. Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  347. linha = MSFlexGrid1.RowSel
  348.  
  349. If MSFlexGrid1.ColSel = 1 Then
  350. MSFlexGrid1.Col = 0
  351.  
  352. If MSFlexGrid1.CellPicture = menos(1) Or MSFlexGrid1.CellPicture = mais(0) Then
  353. MSFlexGrid1.Col = 1
  354.  
  355. If MSFlexGrid1.CellPicture = cx(0) Then
  356. Set MSFlexGrid1.CellPicture = cx(1)
  357. For t1 = MSFlexGrid1.RowSel + 1 To MSFlexGrid1.Rows - 1
  358. MSFlexGrid1.CellBackColor = &HFFFFFF
  359. If MSFlexGrid1.TextMatrix(t1, 2) = "+" Then GoTo pule
  360. MSFlexGrid1.Row = t1
  361. Set MSFlexGrid1.CellPicture = cx(1)
  362. Next t1
  363. Exit Sub
  364. End If
  365.  
  366. If MSFlexGrid1.CellPicture = cx(1) Then
  367. Set MSFlexGrid1.CellPicture = cx(0)
  368. For t1 = MSFlexGrid1.RowSel + 1 To MSFlexGrid1.Rows - 1
  369. MSFlexGrid1.CellBackColor = &HFFFFFF
  370. If MSFlexGrid1.TextMatrix(t1, 2) = "+" Then GoTo pule
  371. MSFlexGrid1.Row = t1
  372. Set MSFlexGrid1.CellPicture = cx(0)
  373. Next t1
  374. Exit Sub
  375. End If
  376. Else
  377. MSFlexGrid1.Col = 1
  378. If MSFlexGrid1.CellPicture = cx(0) Then
  379. Set MSFlexGrid1.CellPicture = cx(1)
  380. For t1 = MSFlexGrid1.RowSel To 1 Step -1
  381. If MSFlexGrid1.TextMatrix(t1, 2) = "+" Then
  382. MSFlexGrid1.Col = 1
  383. MSFlexGrid1.Row = t1
  384. Set MSFlexGrid1.CellPicture = cx(1)
  385. GoTo pule
  386. End If
  387. Next t1
  388. Else
  389. Set MSFlexGrid1.CellPicture = cx(0)
  390. End If
  391. End If
  392. End If
  393.  
  394. '------------------------------
  395. If MSFlexGrid1.ColSel = 0 Then
  396. MSFlexGrid1.Visible = False
  397. MSFlexGrid1.Redraw = False
  398. MSFlexGrid1.BackColorSel = &HFFFFFF
  399. If MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 2) = "+" Then
  400. If MSFlexGrid1.CellPicture = mais(0) Then
  401. Set MSFlexGrid1.CellPicture = menos(1)
  402. For t = MSFlexGrid1.RowSel + 1 To MSFlexGrid1.Rows - 1
  403. If MSFlexGrid1.TextMatrix(t, 2) = "+" Then GoTo pule
  404. MSFlexGrid1.RowHeight(t) = 250
  405. MSFlexGrid1.Row = t
  406. MSFlexGrid1.Col = 4
  407. If MSFlexGrid1.TextMatrix(t, 2) = "" Then
  408. Set MSFlexGrid1.CellPicture = arrow(0)
  409. Else
  410. MSFlexGrid1.Row = t
  411. MSFlexGrid1.Col = 4
  412. Set MSFlexGrid1.CellPicture = arrow(1)
  413. End If
  414. MSFlexGrid1.Row = linha
  415. MSFlexGrid1.Col = 1
  416. If MSFlexGrid1.CellPicture = cx(1) Then
  417. MSFlexGrid1.Row = t
  418. MSFlexGrid1.Col = 1
  419. Set MSFlexGrid1.CellPicture = cx(1)
  420. End If
  421. If MSFlexGrid1.CellPicture = cx(0) Then
  422. MSFlexGrid1.Row = t
  423. MSFlexGrid1.Col = 1
  424. Set MSFlexGrid1.CellPicture = cx(0)
  425. End If
  426. MSFlexGrid1.Col = 2
  427. MSFlexGrid1.BackColorSel = &HFFFFFF
  428. MSFlexGrid1.CellPictureAlignment = 1
  429. Next t
  430. Else
  431. Set MSFlexGrid1.CellPicture = mais(0)
  432. For t1 = MSFlexGrid1.RowSel + 1 To MSFlexGrid1.Rows - 1
  433. MSFlexGrid1.CellBackColor = &HFFFFFF
  434. If MSFlexGrid1.TextMatrix(t1, 2) = "+" Then GoTo pule
  435. MSFlexGrid1.Row = t1
  436. MSFlexGrid1.ColSel = 4
  437. Set MSFlexGrid1.CellPicture = Nothing
  438. MSFlexGrid1.RowHeight(t1) = 0
  439. Next t1
  440. End If
  441. End If
  442. End If
  443.  
  444. pule:
  445. linha = 0
  446. MSFlexGrid1.Redraw = True
  447. MSFlexGrid1.Visible = True
  448. End Sub
  449.  
  450. Public Sub setarbd(TBL As String)
  451. Set DBC = OpenDatabase(App.Path + "\helio.mdb")
  452. Set RSC = DBC.OpenRecordset(TBL, dbOpenDynaset)
  453. Exit Sub
  454. vaix:
  455. MsgBox ("O Banco de Dados estß indisponφvel. Verifique sua REDE.")
  456. End Sub
  457. Public Sub setarbd1(TB As String)
  458. Set DB = OpenDatabase(App.Path + "\helio.mdb")
  459. Set RS = DB.OpenRecordset(TB)
  460. Exit Sub
  461. vai:
  462. MsgBox ("O Banco de Dados estß indisponφvel. Verifique sua REDE.")
  463. End Sub
  464.  
  465. Public Sub fechar()
  466. RS.Close
  467. DB.Close
  468. RSC.Close
  469. DBC.Close
  470. End Sub
  471.