mainform1.~pas

管理

end;

procedure TMainForm.Panel1DblClick(Sender: TObject);
begin
  Panel1.Width := 1022;
  Panel1.Height:= 606;

 { if Panel1.Width=669 and Panel1.Height=301 then
  begin
    Panel1.Width := 1022;
    Panel1.Height:= 606;
  end
  else begin
    Panel1.Width := 669;
    Panel1.Height:= 301;
  {Panel1.Width := 1022;
  Panel1.Height:= 606;}
  end;

procedure TMainForm.Panel1Click(Sender: TObject);
begin
    Panel1.Width := 669;
    Panel1.Height:= 301;

end;

procedure TMainForm.Action10Execute(Sender: TObject);
begin
  if cxGrid1DBTableView1.OptionsSelection.CellSelect = True then
    cxGrid1DBTableView1.OptionsSelection.CellSelect := false
  else
    cxGrid1DBTableView1.OptionsSelection.CellSelect := True;
end;

procedure TMainForm.AIniWindows;
begin
  inherited;
  OLEDateAccess;
  ANumber := Caption;
  ISYesNo := true;

end;

procedure TMainForm.Action11Execute(Sender: TObject);
begin
  adoRecord.Filtered := False;
end;

procedure TMainForm.Action13Execute(Sender: TObject);
begin
  Panel1.Visible := not Panel1.Visible;
end;

procedure TMainForm.FormShow(Sender: TObject);
Const
  SQLTemp = 'EnterTime=''%s'' ';
Var
  DayDateStr :String;
begin

  DayDateStr := FormatDatetime('yyyy-mm-dd',now);

  {ADOQuery := TADOQuery.Create(Nil);
  ADOQuery.Connection := Self.ADOConnection1;
  try
    StrCustom := Format(SQLTemp,[DayDateStr]);
    ADOQuery.Close;
    ADOQuery.SQL.Clear;
    ADOQuery.SQL.Add(StrCustom);
    ADOQuery.Open;
  finally
    ADOQuery.Free;
  end; }


    adoRecord.Filtered := False;
    adoRecord.Filter   := Format(SQLTemp,[DayDateStr]);
    adoRecord.Filtered := true;

    adoRecord.Edit;
    adoRecordEnterTime.Value  := DayDateStr;
    adoRecord.Post;
    
    ShowmodalWMLandForm;

end;

procedure TMainForm.FormCreate(Sender: TObject);
Var
  AStrColor    : Integer;
  AIniFile : TIniFile;
  AIniFileName : String;
begin

  adoRecord.Open;
  dxDockPanel1.Destroy;

  AIniFileName := ExtractFilePath(Application.ExeName)+'Config\Config.Ini';
  AIniFile := TIniFile.Create(AIniFileName);
  Try
    AStrColor := AIniFile.ReadInteger('MateFile','Number',$003C3C3C);
    MainForm.Color := AStrColor;
  Finally
    AIniFile.Free;
  end;

end;

procedure TMainForm.Action12Execute(Sender: TObject);
Const
  SQLDateDay = 'EnterTime=''%s'' ';
Var
  AFlag:Boolean;
  AInput:string;
begin
  AFlag := InputQuery('自定义...','请输入日期查询...   ',AInput);
  if Not AFlag then Exit;

    adoRecord.Filtered := False;
    adoRecord.Filter   := Format(SQLDateDay,[AInput]);
    adoRecord.Filtered := true;
end;
procedure TMainForm.AInputQuery(ACaption, AMessage, AFieldName: String);
const
  SQLTemp=' %s like ''%S''';
var
  AFlag:Boolean;
  AInput:String;
begin
  AFlag:= InputQuery(ACaption,Amessage,AInput);
  If Not Aflag Then Exit
  else begin
    adoRecord.Filtered:=False;
    adoRecord.Filter  :=Format(SQLTemp,[AFieldName,AInput]);
    adoRecord.Filtered:=True;
  end;
end;

procedure TMainForm.Action14Execute(Sender: TObject);
begin
  AInputQuery('自定义...  ','按品种列出...  ','Veriety');
end;

procedure TMainForm.Action15Execute(Sender: TObject);
begin
  AInputQuery('自定义...  ','按物品总价列出...  ','Sumprice');
end;

procedure TMainForm.Action16Execute(Sender: TObject);
begin
  AInputQuery('自定义...  ','按月总计列出...  ','SumMonth');
end;

procedure TMainForm.Action17Execute(Sender: TObject);
begin
  AInputQuery('自定义...  ','按年总计列出...  ','SumYear');
end;

procedure TMainForm.Action23Execute(Sender: TObject);
begin
  AInputQuery('自定义...  ','按ID列出...  ','AutoID');
end;

procedure TMainForm.Action18Execute(Sender: TObject);
begin
  ShowMalWMFind;
end;

procedure TMainForm.Action5Execute(Sender: TObject);
begin
  EditForm := TEditForm.Create(Nil);
  try
    EditForm.Edit1.Text := adoRecordAutoID.AsString;
    EditForm.Edit2.Text := adoRecordEnterTime.AsString;
    EditForm.Edit3.Text := adoRecordVeriety.AsString;
    EditForm.Edit4.text := adoRecordPrice.AsString;
    EditForm.Edit5.text := adoRecordNumber.AsString;
    EditForm.Edit6.text := adoRecordSumprice.AsString;
    EditForm.Edit7.text := adoRecordSumMonth.AsString;
    EditForm.Edit8.text := adoRecordSumYear.AsString;
    EditForm.Edit9.Text := adoRecordDayPayout.AsString;
    EditForm.Edit10.Text:= adoRecordDayincome.AsString;
    EditForm.Caption := '编辑 . . .';
    EditForm.ShowModal;
  finally
    EditForm.Free;
  end;
//  SendValueShowMal(adoRecordAutoID.Value,adoRecordEnterTime.Value,adoRecordVeriety.Value,adoRecordPrice.Value,adoRecordNumber.Value,adoRecordSumprice.Value,adoRecordSumMonth.Value,adoRecordSumYear.Value);
end;

procedure TMainForm.Action4Execute(Sender: TObject);
begin
  EditForm := TEditForm.Create(Nil);
  try
    EditForm.Caption :='新增 . . .  ';
    EditForm.ShowModal;
  finally
    EditForm.Free;
  end;
end;

procedure TMainForm.Action26Execute(Sender: TObject);
begin
  ShowMalComputerForm;
end;

procedure TMainForm.Action2Execute(Sender: TObject);
begin
  ShowmodalWMLandForm;
end;

procedure TMainForm.Action1Execute(Sender: TObject);
Var
  AInput,AFlag:String;
  AFlog :Boolean;
begin
 
  AFlog := InputQuery('请输入密码','',AInput);
  if Not AFlog then Exit;
  if AInput<>'123' then Exit;
  ShowWindows;
end;

procedure TMainForm.Action7Execute(Sender: TObject);
begin
  WMHelpForm := TWMHelpForm.Create(Nil);
  try
    WMHelpForm.ShowModal;
  finally
    WMHelpForm.Free;
  end;

end;

procedure TMainForm.AConnectSQL;
Var
  AIniFileName : String;
  AIniFile     : TIniFile;
  AStr         : String;

begin
  AIniFileName := ExtractFilePath(Application.ExeName)+'Config\Config.Ini';
  AIniFile := TIniFile.Create(AIniFileName);
  try
    AStr := AIniFile.ReadString('Setup','ICount','');
    ADOConnection1.ConnectionString := AStr;
    ADOConnection1.Connected := True;
  finally
    AIniFile.Free;
  end;

end;

procedure TMainForm.Action27Execute(Sender: TObject);
begin
  WMTimesumForm := TWMTimesumForm.Create(Nil);
  try
    WMTimesumForm.ShowModal;
  finally
    WMTimesumForm.Free;
  end;

end;

procedure TMainForm.Action28Execute(Sender: TObject);
begin
  WMweForm := TWMweForm.Create(Nil);
  try
    WMweForm.ShowModal;
  finally
    WMweForm.Free;
  end;

end;

procedure TMainForm.OLEDateAccess;
Const
  SQLTemp ='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s'+
           'db1.mdb;Persist Security Info=False';
Var
  MyDate:String;
begin
  MyDate := ExtractFilePath(Application.ExeName)+'DB\';
  ADOConnection1.ConnectionString := Format(SQLTemp,[MyDate]);
  ADOConnection1.Connected := True;
end;

end.