【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了GDZCJSGL.PAS相关资料,希望对各位网友有所帮助!
unit gdzcjsgl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, DB, Grids, DBGrids;
type
TForm7 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
ComboBox1: TComboBox;
SpeedButton1: TSpeedButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Panel3: TPanel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
ComboBox2: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
DateTimePicker1: TDateTimePicker;
Label10: TLabel;
Edit3: TEdit;
Panel4: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Label9: TLabel;
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SpeedButton1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Dataz;
{$R *.dfm}
procedure TForm7.BitBtn2Click(Sender: TObject);
begin
DataSource1.DataSet := Nil;
Label8.Caption := '';
Label9.Caption := '';
ComboBox1.Text := '';
ComboBox2.Text := '';
Edit2.Clear;
Edit3.Clear;
Edit1.Clear;
end;
procedure TForm7.FormShow(Sender: TObject);
begin
ComboBox1.Clear;
with Daz.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select distinct 固定资产名称 from 固定资产信息表 where 增减 = 0');
Open;
end;
while Not Daz.ADOQuery1.Eof do
begin
ComboBox1.Items.Add(Daz.ADOQuery1.FieldByName('固定资产名称').Value);
Daz.ADOQuery1.Next;
end;
ComboBox2.Clear;
with Daz.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select 减少方式 from 固定资产减少方式表');
Open;
end;
while Not Daz.ADOQuery1.Eof do
begin
ComboBox2.Items.Add(Daz.ADOQuery1.FieldByName('减少方式').Value);
Daz.ADOQuery1.Next;
end;
DateTimePicker1.Date := Now();
BitBtn2.OnClick(Sender);
end;
procedure TForm7.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;
procedure TForm7.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clBlue;
end;
procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
if Trim(ComboBox1.Text)<>'' then
begin
with Daz.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 固定资产信息表 where 固定资产名称 = :a');
Parameters.ParamByName('a').Value := Trim(ComboBox1.Text);
Open;
end;
if Daz.ADOQuery2.RecordCount >0 then
begin
DataSource1.DataSet := Daz.ADOQuery2;
Label8.Caption := Daz.ADOQuery2.FieldByName('固定资产编号').Value;
Label9.Caption := Daz.ADOQuery2.FieldByName('固定资产名称').Value;
end
else
begin
DataSource1.DataSet := Nil;
Label8.Caption := '';
Label9.Caption := '';
end;
end;
end;
procedure TForm7.DBGrid1DblClick(Sender: TObject);
begin
if Daz.ADOQuery2.Active = True then
if Daz.ADOQuery2.RecordCount >0 then
begin
Label8.Caption := Daz.ADOQuery2.FieldByName('固定资产编号').Value;
Label9.Caption := Daz.ADOQuery2.FieldByName('固定资产名称').Value;
end;
end;
procedure TForm7.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
Key := #0;
end;
procedure TForm7.Edit2KeyPress(Sender: TObject; var Key: Char);
var
mm: Boolean;
begin
mm := (Key<#8)or(Key>#8)and(Key<#46)or(Key>#46)and(Key<#48)or(Key>#57);
if mm then
Key := #0;
end;
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
if (Trim(Label8.Caption)<>'')and(Trim(Label9.Caption)<>'')and(Trim(Edit2.Text)<>'')and
(Trim(ComboBox2.Text)<>'')and(Trim(Edit3.Text)<>'')and(Trim(Edit1.Text)<>'') then
begin
Try
Daz.ADOConnection1.BeginTrans;
with Da