s3c

Bom, a primeira parte do código, coloque-a na interface. A segunda parte é a chamada e você pode colocá-la quando o funcionário fizer o registro do ponto.

Não é só chamar assim: PrintForm(TForm(TButton(Sender).Owner));

Aonde está dando erro e qual o erro?

Acho que é conexão via Sockets por IP e porta.

você pode utilizar a propredade SQL do SQLQuery para informar os comandos sql, como insert, update, delete e depois SQLQuery.ExecSQL; Ou senão, alimentar os campos na SQLQuery e dar o SQLQuery.Post.

O problema deve estar no RecordCount. Experimente colocar após IBQuery1.Open IBquery1.Last; IBquery1.First;

Select Sum(Lucro) - Sum(Divida) as Res From Tabela Query.Open; Edit1.Text := FloatToStr(Query.FieldByName('Res').asFloat); Query.Close;

type TMeuMemo = class(TMemo) procedure WndProc(var Msg:TMessage); override; end; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var MeuMemo :TMeuMemo; begin // Aqui você cria o Memo com barras e define tamanho e Left, Top MeuMemo := TMeuMemo.Create(Self); MeuMemo.Parent := Self; MeuMemo.Left := 50; MeuMemo.Top := 170; MeuMemo.Height := 120; MeuMemo.Width := 120; MeuMemo.ScrollBars := ssBoth; end; procedure TMeuMemo.WndProc(var Msg:TMessage); begin // quando ele receber mensagem de scroll vertical, manda p/ o memo sem barras // Tem que colocar Form1.Memo1 porque você está em outra classe if Msg.Msg = WM_VSCROLL then SendMessage(Form1.Memo1.Handle, Msg.Msg, Msg.WParam, Msg.LParam); inherited; // não vá esquecer disto, porque é override end;

Acho que o que ele quer é um programa que leia o .exe e gere o .pas Show se você conseguir dá um toque aí que também quero!!!

Olá amigos; ví s3c em várias partes deste tópico. Primeiramente gostaria de dizer que fiquei surpreso pela indicação porque sou novo neste fórum e achava que para ser um moderador, deveria frequentar o fórum por mais tempo. Bom, gosto deste fórum, pois o pessoal aqui não compete entre si e sim se ajuda para esclarecer dúvidas e isto é muito bom porque acho que com esta filosofia, o fórum só tende a crescer. Devo lhes dizer que não posso ser moderador por enquanto, pois o meu problema é exatamente o mesmo do moderador que está saindo. Acho que o Arlon seria uma boa indicação. Um grande abraço a todos !!!

Bom, que eu saiba, ela se incrementa quando você dá o Build Project; só na compilação eu não sei.

No memo que terá a barra, você terá que criá-lo em tempo de execução como descendente de TMemo e definir a procedure WndProc p/ pegar a mensagem WM_VSCROLL e mandá-la por SendMessage p/ o memo sem a barra. Não esqueça que WndProc é override.

Uma WideString é uma String de WideChars, ou seja, ela mantem caracteres de 16 bits. var ServerName:WideString;

Defina o seguinte: type PTime_Of_Day_Info = ^TTime_Of_Day_Info; TTime_Of_Day_Info = record tod_elapsedt :Integer; tod_msecs :Integer; tod_hours :Integer; tod_mins :Integer; tod_secs :Integer; tod_hunds :Integer; tod_timezone :LongInt; tod_tinterval :Integer; tod_day :Integer; tod_month :Integer; tod_year :Integer; tod_weekday :Integer; end; function NetRemoteTOD(ServerName :PChar; var buffer :Pointer) :Integer; stdcall; external 'netapi32.dll'; function NetApiBufferFree(buffer :Pointer) :Integer; stdcall; external 'netapi32.dll'; Para chamar: var Time_Of_Day_Info:PTime_Of_Day_Info; Buffer:Pointer; begin ServerName := '\\M4'; if NetRemoteTOD(PChar(ServerName), Buffer) = 0 then begin Time_Of_Day_Info := Buffer; // Utilize Time_Of_Day_Info^.tod_elapsedt; Time_Of_Day_Info^.tod_msecs; Time_Of_Day_Info^.tod_hours; Time_Of_Day_Info^.tod_mins; Time_Of_Day_Info^.tod_secs; Time_Of_Day_Info^.tod_hunds; Time_Of_Day_Info^.tod_timezone; Time_Of_Day_Info^.tod_tinterval; Time_Of_Day_Info^.tod_day; Time_Of_Day_Info^.tod_month; Time_Of_Day_Info^.tod_year; Time_Of_Day_Info^.tod_weekday; // Essa função não libera o Buffer, para liberá-lo: NetApiBufferFree(Buffer); end; end; Obs: ServerName tem que ser uma WideString

Tem sim; é a api NetRemoteTOD e ela se encontra na NetApi.dll

var d:TDateTime; d := FileDateToDateTime(FileAge('Caminho\Project1.exe'));

procedure TForm1.FormCreate(Sender: TObject); var DataBusca : String; Begin DataBusca := DateToStr(Date); Query1.Close; Query1.SQL.Text := 'Select Nome from Alunos ' + 'Where Data =:DataBusca'; Query1.Params[0].AsString := DataBusca; Query1.open; end; Se Data for Datetime Query1.Params[0] não pode ser asString

Se essa função salvar num TBitmap, uma solução seria diminuir o Width e Height do TBitmap p/ depois conevertê-lo p/ Jpeg

Tente assim: SELECT CLI.NOME, CLITEL.TELEFONE, CEP.CEP FROM CLIENTES CLI LEFT JOIN CLIENTESTELEFONE CLITEL ON CLI.CODCLIENTE=CLITEL.CODCLIENTE LEFT JOIN CEPS CEP ON CLITEL.CEP=CEP.CEP WHERE CLI.NOME LIKE '%CARLOS%'

você tem que dar refresh nos outros datasets que estiverem abertos

Acho que não há problemas se você utilizar um timer p/ atualizar a hora

Acredito que especificamente .DAT não queira dizer muita coisa, pois eles possuem vários layouts e são lidos por vários programas. Imagino que primeiro você tenha que dar um dump desse arquivo para descobrir seu layout para depois trabalhar com ele pelo Delphi.

Select Extract(Day From dAniversario) as Dia, Extract(Month From dAniversario) as Mes From Tabela

Se você estiver utilizando o IBClientDataset, experimente igualar o ProviderFlags de todos os fields do seu dataset com o do DeltaDS no evento BeforeUpdateRecord.

Não sei não, mas acho que vai dar erro: Aqui: Query1.parambyname('cpf').asstring := FloatToString(edit1.text); edit1.text não é um float. Aqui: Query1.parambyname('cpf').asInteger := edit1.text; edit1.text não é um integer. Não seria assim: Query1.parambyname('cpf').asInteger := StrToInt(edit1.text); ou Query1.parambyname('cpf').asFloat := StrToFloat(edit1.text);